ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_quadPack.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
138
139!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
141module pm_quadPack
142
143 use pm_kind, only: SK, IK, LK, RKH, RKB
144 use pm_mathConst, only: ninf, ninf_type
145 use pm_mathConst, only: pinf, pinf_type
146
147 implicit none
148
149 character(*, SK), parameter :: MODULE_NAME = "@pm_quadPack"
150
151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152
193 type :: wcauchy_type
194 real(RKH) :: cs
195 end type
196
237 interface wcauchy_type
238
239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240
241#if RK5_ENABLED
242 PURE elemental module function wcauchy_typer_RK5(cs) result(wcauchy)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK5
245#endif
246 use pm_kind, only: RKC => RK5
247 real(RKC) , intent(in) :: cs
248 type(wcauchy_type) :: wcauchy
249 end function
250#endif
251
252#if RK4_ENABLED
253 PURE elemental module function wcauchy_typer_RK4(cs) result(wcauchy)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK4
256#endif
257 use pm_kind, only: RKC => RK4
258 real(RKC) , intent(in) :: cs
259 type(wcauchy_type) :: wcauchy
260 end function
261#endif
262
263#if RK3_ENABLED
264 PURE elemental module function wcauchy_typer_RK3(cs) result(wcauchy)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK3
267#endif
268 use pm_kind, only: RKC => RK3
269 real(RKC) , intent(in) :: cs
270 type(wcauchy_type) :: wcauchy
271 end function
272#endif
273
274#if RK2_ENABLED
275 PURE elemental module function wcauchy_typer_RK2(cs) result(wcauchy)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK2
278#endif
279 use pm_kind, only: RKC => RK2
280 real(RKC) , intent(in) :: cs
281 type(wcauchy_type) :: wcauchy
282 end function
283#endif
284
285#if RK1_ENABLED
286 PURE elemental module function wcauchy_typer_RK1(cs) result(wcauchy)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK1
289#endif
290 use pm_kind, only: RKC => RK1
291 real(RKC) , intent(in) :: cs
292 type(wcauchy_type) :: wcauchy
293 end function
294#endif
295
296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298 end interface
299
300!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301
345 type :: wsin_type
346 real(RKH) :: omega
347 end type
348
389 interface wsin_type
390
391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392
393#if RK5_ENABLED
394 PURE elemental module function wsin_typer_RK5(omega) result(wsin)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK5
397#endif
398 use pm_kind, only: RKC => RK5
399 real(RKC) , intent(in) :: omega
400 type(wsin_type) :: wsin
401 end function
402#endif
403
404#if RK4_ENABLED
405 PURE elemental module function wsin_typer_RK4(omega) result(wsin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK4
408#endif
409 use pm_kind, only: RKC => RK4
410 real(RKC) , intent(in) :: omega
411 type(wsin_type) :: wsin
412 end function
413#endif
414
415#if RK3_ENABLED
416 PURE elemental module function wsin_typer_RK3(omega) result(wsin)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK3
419#endif
420 use pm_kind, only: RKC => RK3
421 real(RKC) , intent(in) :: omega
422 type(wsin_type) :: wsin
423 end function
424#endif
425
426#if RK2_ENABLED
427 PURE elemental module function wsin_typer_RK2(omega) result(wsin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK2
430#endif
431 use pm_kind, only: RKC => RK2
432 real(RKC) , intent(in) :: omega
433 type(wsin_type) :: wsin
434 end function
435#endif
436
437#if RK1_ENABLED
438 PURE elemental module function wsin_typer_RK1(omega) result(wsin)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK1
441#endif
442 use pm_kind, only: RKC => RK1
443 real(RKC) , intent(in) :: omega
444 type(wsin_type) :: wsin
445 end function
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450 end interface
451
452!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
497 type :: wcos_type
498 real(RKH) :: omega
499 end type
500
541 interface wcos_type
542
543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544
545#if RK5_ENABLED
546 PURE elemental module function wcos_typer_RK5(omega) result(wcos)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK5
549#endif
550 use pm_kind, only: RKC => RK5
551 real(RKC) , intent(in) :: omega
552 type(wcos_type) :: wcos
553 end function
554#endif
555
556#if RK4_ENABLED
557 PURE elemental module function wcos_typer_RK4(omega) result(wcos)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK4
560#endif
561 use pm_kind, only: RKC => RK4
562 real(RKC) , intent(in) :: omega
563 type(wcos_type) :: wcos
564 end function
565#endif
566
567#if RK3_ENABLED
568 PURE elemental module function wcos_typer_RK3(omega) result(wcos)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK3
571#endif
572 use pm_kind, only: RKC => RK3
573 real(RKC) , intent(in) :: omega
574 type(wcos_type) :: wcos
575 end function
576#endif
577
578#if RK2_ENABLED
579 PURE elemental module function wcos_typer_RK2(omega) result(wcos)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK2
582#endif
583 use pm_kind, only: RKC => RK2
584 real(RKC) , intent(in) :: omega
585 type(wcos_type) :: wcos
586 end function
587#endif
588
589#if RK1_ENABLED
590 PURE elemental module function wcos_typer_RK1(omega) result(wcos)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK1
593#endif
594 use pm_kind, only: RKC => RK1
595 real(RKC) , intent(in) :: omega
596 type(wcos_type) :: wcos
597 end function
598#endif
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601
602 end interface
603
604!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
645 type :: GK15_type
646 end type
647
674 type(GK15_type) , parameter :: GK15 = GK15_type()
675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
676 !DIR$ ATTRIBUTES DLLEXPORT :: GK15
677#endif
678
698 real(RKB) , parameter :: nodeG7(4) = &
699 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
700 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
701 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
702 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB ]
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG7
705#endif
706
726 real(RKB) , parameter :: weightG7(4) = &
727 [ 4.1795918367346938775510204081632653061224489795918367346938775510204081632653061224489795918367346938775510204081633e-01_RKB &
728 , 3.8183005050511894495036977548897513387836508353386273475108345103070554643412970834868465934404480145031467176458536e-01_RKB &
729 , 2.7970539148927666790146777142377958248692506522659876453701403269361881043056267681324094290119761876632337521337205e-01_RKB &
730 , 1.2948496616886969327061143267908201832858740225994666397720863872465523497204230871562541816292084508948440200163443e-01_RKB ]
731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
732 !DIR$ ATTRIBUTES DLLEXPORT :: weightG7
733#endif
734
754 real(RKB) , parameter :: nodeK15(8) = &
755 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
756 , 2.0778495500789846760068940377324491347978440714517064971384573461986693844943520226910343227183698530560857645062738e-01_RKB &
757 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
758 , 5.8608723546769113029414483825872959843678075060436095130499289319880373607444407464511674498935942098956811555121368e-01_RKB &
759 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
760 , 8.6486442335976907278971278864092620121097230707408814860145771276706770813259572103585847859604590541475281326027862e-01_RKB &
761 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB &
762 , 9.9145537112081263920685469752632851664204433837033470129108741357244173934653407235924503509626841760744349505339308e-01_RKB ]
763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
764 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK15
765#endif
766
786 real(RKB) , parameter :: weightK15(8) = &
787 [ 2.0948214108472782801299917489171426369776208022370431671299800656137515132325648616816908211675949102392971459688215e-01_RKB &
788 , 2.0443294007529889241416199923464908471651760418071835742447095312045467698546598879348374292009347554167803659293064e-01_RKB &
789 , 1.9035057806478540991325640242101368282607807545535835588544088036744058072410212679605964605106377593834568683551139e-01_RKB &
790 , 1.6900472663926790282658342659855028410624490030294424149734006755695680921619029112936702403855359908156070095656537e-01_RKB &
791 , 1.4065325971552591874518959051023792039988975724799857556174546893312708093090950408097379122415555910759700350860143e-01_RKB &
792 , 1.0479001032225018383987632254151801744375665421383061189339065133963746321576289524167571627509311333949422518201492e-01_RKB &
793 , 6.3092092629978553290700663189204286665071157211550707113605545146983997477964874928199170264504441995865872491871943e-02_RKB &
794 , 2.2935322010529224963732008058969591993560811275746992267507430254711815787976075946156368168156289483493617134063245e-02_RKB ]
795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
796 !DIR$ ATTRIBUTES DLLEXPORT :: weightK15
797#endif
798
799!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
800
840 type :: GK21_type
841 end type
842
870 type(GK21_type) , parameter :: GK21 = GK21_type()
871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
872 !DIR$ ATTRIBUTES DLLEXPORT :: GK21
873#endif
874
894 real(RKB) , parameter :: nodeG10(5) = &
895 [ 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
896 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
897 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
898 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
899 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB ]
900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
901 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG10
902#endif
903
923 real(RKB) , parameter :: weightG10(5) = &
924 [ 2.9552422471475287017389299465133832942104671702685360135430802975599593821715232927035659579375421672271716440125256e-01_RKB &
925 , 2.6926671930999635509122692156946935285975993846088379580056327624215343231917927676422663670925276075559581145036870e-01_RKB &
926 , 2.1908636251598204399553493422816319245877187052267708988095654363519991065295128124268399317720219278659121687281289e-01_RKB &
927 , 1.4945134915058059314577633965769733240255663966942736783547726875323865472663001094594726463473195191400575256104544e-01_RKB &
928 , 6.6671344308688137593568809893331792857864834320158145128694881613412064084087101776785509685058877821090054714520419e-02_RKB ]
929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
930 !DIR$ ATTRIBUTES DLLEXPORT :: weightG10
931#endif
932
952 real(RKB) , parameter :: nodeK21(11) = &
953 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
954 , 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
955 , 2.9439286270146019813112660310386556616268662515695791864888229172724611166332737888445523178268237359119185139299872e-01_RKB &
956 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
957 , 5.6275713466860468333900009927269414084301388194196695886034621458779266353216327549712087854169992422106448211158815e-01_RKB &
958 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
959 , 7.8081772658641689706371757834504237716340752029815717974694859999505607982761420654526977234238996241110129779403362e-01_RKB &
960 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
961 , 9.3015749135570822600120718005950834622516790998193924230349406866828415983091673055011194572851007884702013619684320e-01_RKB &
962 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB &
963 , 9.9565716302580808073552728068900284792126058721947892436337916111757023046774867357152325996912076724298149077812671e-01_RKB ]
964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
965 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK21
966#endif
967
987 real(RKB) , parameter :: weightK21(11) = &
988 [ 1.4944555400291690566493646838982120374523631668747280383560851873698964478511841925721030705689540264726493367634340e-01_RKB &
989 , 1.4773910490133849137484151597206804552373162548520660451819195439885993016735696405732703959182882254268727823258502e-01_RKB &
990 , 1.4277593857706008079709427313871706088597905653190555560741004743970770449909340027811131706283756428281146832304737e-01_RKB &
991 , 1.3470921731147332592805400177170683276099191300855971406636668491320291400121282036676953159488271772384389604997640e-01_RKB &
992 , 1.2349197626206585107795810983107415951230034952864832764467994120974054238975454689681538622363738230836484113389878e-01_RKB &
993 , 1.0938715880229764189921059032580496027181329983434522007819675829826550372891432168683899432674553842507906611591517e-01_RKB &
994 , 9.3125454583697605535065465083366344390018828880760031970085038760177735672200775237414123061615827474831165614953012e-02_RKB &
995 , 7.5039674810919952767043140916190009395219382000910088173697048048430404342858495178813808730646554086856929327903059e-02_RKB &
996 , 5.4755896574351996031381300244580176373721114058333557524432615804784098927818975325116301569003298086458722055550981e-02_RKB &
997 , 3.2558162307964727478818972459389760617388939845662609571537504232714121820165498692381607605384626494546068817765276e-02_RKB &
998 , 1.1694638867371874278064396062192048396217332481931888927598147525622222058064992651806736704969967250888097490233242e-02_RKB ]
999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1000 !DIR$ ATTRIBUTES DLLEXPORT :: weightK21
1001#endif
1002
1003!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1004
1044 type :: GK31_type
1045 end type
1046
1074 type(GK31_type) , parameter :: GK31 = GK31_type()
1075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1076 !DIR$ ATTRIBUTES DLLEXPORT :: GK31
1077#endif
1078
1098 real(RKB) , parameter :: nodeG15(8) = &
1099 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1100 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1101 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1102 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1103 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1104 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1105 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1106 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB ]
1107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1108 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG15
1109#endif
1110
1130 real(RKB) , parameter :: weightG15(8) = &
1131 [ 2.0257824192556127288062019996751931483866215800947735679670411605143539875474607409339344071278803213535148267082999e-01_RKB &
1132 , 1.9843148532711157645611832644383932481869255995754199348473792792912479753343426813331499916481782320766020854889310e-01_RKB &
1133 , 1.8616100001556221102680056186642282450622601227792840281549572731001325550269916061894976888609932360539977709001384e-01_RKB &
1134 , 1.6626920581699393355320086048120881113090018009841290732186519056355356321227851771070517429241553621484461540657185e-01_RKB &
1135 , 1.3957067792615431444780479451102832252085027531551124320239112863108844454190781168076825736357133363814908889327664e-01_RKB &
1136 , 1.0715922046717193501186954668586930341554371575810198068702238912187799485231579972568585713760862404439808767837506e-01_RKB &
1137 , 7.0366047488108124709267416450667338466708032754330719825907292914387055512874237044840452066693939219355489858595041e-02_RKB &
1138 , 3.0753241996117268354628393577204417721748144833434074264228285504237189467117168039038770732399404002516991188859473e-02_RKB ]
1139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1140 !DIR$ ATTRIBUTES DLLEXPORT :: weightG15
1141#endif
1142
1162 real(RKB) , parameter :: nodeK31(16) = &
1163 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1164 , 1.0114206691871749902707423144739233878745105740164180495800189504151097862454083050931321451540380998341273193681967e-01_RKB &
1165 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1166 , 2.9918000715316881216678002426638896266160338274382080184125545738918081102513884467602322020157243563662094470221235e-01_RKB &
1167 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1168 , 4.8508186364023968069365574023235061286633893089407312129367943604080239955167155974371848690848595275551258416303565e-01_RKB &
1169 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1170 , 6.5099674129741697053373589531327469254694822609259966708966160576093305841043840794460394747228060367236079289132544e-01_RKB &
1171 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1172 , 7.9041850144246593296764929481794734686214051995697617332365280643308302974631807059994738664225445530963711137343440e-01_RKB &
1173 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1174 , 8.9726453234408190088250965645449588283177871149442786763972687601078537721473771221195399661919716123038835639691946e-01_RKB &
1175 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1176 , 9.6773907567913913425734797878433722528335733730013163797468062226335804249452174804319385048203118506304424717089291e-01_RKB &
1177 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB &
1178 , 9.9800229869339706028517284015227120907340644231555723034839427970683348682837134566648979907760125278631896777136104e-01_RKB ]
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK31
1181#endif
1182
1202 real(RKB) , parameter :: weightK31(16) = &
1203 [ 1.0133000701479154901737479276749254677092627259659629246734858372174107615774696665932418050683956749891773195816338e-01_RKB &
1204 , 1.0076984552387559504494666261756972191634838013536373069278929029488122760822761077475060185965408326901925180106227e-01_RKB &
1205 , 9.9173598721791959332393173484603131059567260816713281734860095693651563064308745717056680128223790739026832596087552e-02_RKB &
1206 , 9.6642726983623678505179907627589335136656568630495198973407668882934392359962841826511402504664592185391687490319950e-02_RKB &
1207 , 9.3126598170825321225486872747345718561927881321317330560285879189052002874531855060114908990458716740695847509343865e-02_RKB &
1208 , 8.8564443056211770647275443693774303212266732690655967817996052574877144544749814260718837576325109922207832119243346e-02_RKB &
1209 , 8.3080502823133021038289247286103789601554188253368717607281604875233630643885056057630789228337088859687986285569521e-02_RKB &
1210 , 7.6849680757720378894432777482659006722109101167947000584089097112470821092034084418224731527690291913686588446455555e-02_RKB &
1211 , 6.9854121318728258709520077099147475786045435140671549698798093177992675624987998849748628778570667518643649536771245e-02_RKB &
1212 , 6.2009567800670640285139230960802932190400004210329723569147829395618376206272317333030584268303808639229575334680414e-02_RKB &
1213 , 5.3481524690928087265343147239430296771554760947116739813222888752727413616259625439714812475198987513183153639571249e-02_RKB &
1214 , 4.4589751324764876608227299373279690223256649667921096570980823211805450700059906366455036418897149593261561551176267e-02_RKB &
1215 , 3.5346360791375846222037948478360048122630678992420820868148023340902501837247680978434662724296810081131106317333086e-02_RKB &
1216 , 2.5460847326715320186874001019653359397271745046864640508377984982400903447009185267605205778819712848080691366407461e-02_RKB &
1217 , 1.5007947329316122538374763075807268094639436437387634979291759700896494746154334398961710227490402528151677469993935e-02_RKB &
1218 , 5.3774798729233489877920514301276498183080402431284197876486169536848635554354599213793172596490038991436925569025913e-03_RKB ]
1219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1220 !DIR$ ATTRIBUTES DLLEXPORT :: weightK31
1221#endif
1222
1223!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1224
1264 type :: GK41_type
1265 end type
1266
1294 type(GK41_type) , parameter :: GK41 = GK41_type()
1295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1296 !DIR$ ATTRIBUTES DLLEXPORT :: GK41
1297#endif
1298
1318 real(RKB) , parameter :: nodeG20(10) = &
1319 [ 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1320 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1321 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1322 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1323 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1324 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1325 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1326 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1327 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1328 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB ]
1329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1330 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG20
1331#endif
1332
1352 real(RKB) , parameter :: weightG20(10) = &
1353 [ 1.5275338713072585069808433195509759349194864511237859727470104981759745316273778153557248783650390593544001842813788e-01_RKB &
1354 , 1.4917298647260374678782873700196943669267990408136831649621121780984442259558678069396132603521048105170913854567338e-01_RKB &
1355 , 1.4209610931838205132929832506716493303451541339202030333736708298382808749793436761694922428320058260133068573666201e-01_RKB &
1356 , 1.3168863844917662689849449974816313491611051114698352699643649370885435642948093314355797518397262924510598005463625e-01_RKB &
1357 , 1.1819453196151841731237737771138228700504121954896877544688995202017474835051151630572868782581901744606267543092317e-01_RKB &
1358 , 1.0193011981724043503675013548034987616669165602339255626197161619685232202539434647534931576947985821375859035525483e-01_RKB &
1359 , 8.3276741576704748724758143222046206100177828583163290744882060785693082894079419471375190843790839349096116111932764e-02_RKB &
1360 , 6.2672048334109063569506535187041606351601076578436364099584345437974811033665678644563766056832203512603253399592073e-02_RKB &
1361 , 4.0601429800386941331039952274932109879090639989951536817606854561832296750987328295538920623044384976189825709675075e-02_RKB &
1362 , 1.7614007139152118311861962351852816362143105543336732524349326677348419259621847817403105542146097668703716227512570e-02_RKB ]
1363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1364 !DIR$ ATTRIBUTES DLLEXPORT :: weightG20
1365#endif
1366
1386 real(RKB) , parameter :: nodeK41(21) = &
1387 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1388 , 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1389 , 1.5260546524092267550522024102267752791167622481841730660174156703809133685751696356987995886397049724808931527012542e-01_RKB &
1390 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1391 , 3.0162786811491300432055535685859226061539650501373092456926374427956957435978384116066498234762220215751079886015902e-01_RKB &
1392 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1393 , 4.4359317523872510319999221349264010784010101082300309613315028346299543059315258601993479156987847429893626854030516e-01_RKB &
1394 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1395 , 5.7514044681971031534294603658642513281381264014771682537415885495717468074720062012357788489049470208285175093670561e-01_RKB &
1396 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1397 , 6.9323765633475138480549071184593153338642585141021417904687378454301191710739219011546672416325022748282227809465165e-01_RKB &
1398 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1399 , 7.9504142883755119835063883327278794295938959911578029703855163894322697871710382866701777890251824617748545658564370e-01_RKB &
1400 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1401 , 8.7827681125228197607744299511307846671124526828251164853898086998248145904743220740840261624245683876748360309079747e-01_RKB &
1402 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1403 , 9.4082263383175475351998272221244338027429557377965291059536839973186796006557571220888218676776618448841584569497535e-01_RKB &
1404 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1405 , 9.8150787745025025919334299472021694456725093981023759869077533318793098857465723460898060491887511355706497739384103e-01_RKB &
1406 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB &
1407 , 9.9885903158827766383831557654586300999957020432629666866666860339324411793311982967839129772854179884971700274369367e-01_RKB ]
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK41
1410#endif
1411
1431 real(RKB) , parameter :: weightK41(21) = &
1432 [ 7.6600711917999656445049901530101740827932500628670118055485349620314721456712029449597396569857880493210849110825276e-02_RKB &
1433 , 7.6377867672080736705502835038061001800801036764945996714946431116936745542061941050008345047482501253320401746334511e-02_RKB &
1434 , 7.5704497684556674659542775376616558263363155900414326194855223272348838596099414841886740468379707283366777797425290e-02_RKB &
1435 , 7.4582875400499188986581418362487528616116493572092273080047040726969899567887364227664202642942357104526915332274625e-02_RKB &
1436 , 7.3030690332786667495189417658913112760626845234552742380174250771849743831660040966804802312464527721645765620253776e-02_RKB &
1437 , 7.1054423553444068305790361723210167412912159322210143921628270586407381879789525901086146473278095159807542174985045e-02_RKB &
1438 , 6.8648672928521619345623411885367801715489704958239860400434264173923806029589970941711224257967651039544669425313433e-02_RKB &
1439 , 6.5834597133618422111563556969397943147223506343381443709751749639944420314384296347503523810096842402960802728781816e-02_RKB &
1440 , 6.2653237554781168025870122174254980585819744698897886186553324157100424088919284503451596742588386343548162830898103e-02_RKB &
1441 , 5.9111400880639572374967220648594217136419365977042191748388047204015262840407696611508732839851952697839735487615776e-02_RKB &
1442 , 5.5195105348285994744832372419777329194753456228153116909812131213177827707884692917845453999535518818940813085110223e-02_RKB &
1443 , 5.0944573923728691932707670050344948664836365809262579747517140086119113476866735641054822574173198900379392130050979e-02_RKB &
1444 , 4.6434821867497674720231880926107516842127071007077929289994127933243222585938804392953931185146446072587020288747981e-02_RKB &
1445 , 4.1668873327973686263788305936894738043960843153010324860966353235271889596379726462208702081068715463576895020003842e-02_RKB &
1446 , 3.6600169758200798030557240707211008487453496747498001651070009441973280061489266074044986901436324295513243878212345e-02_RKB &
1447 , 3.1287306777032798958543119323800737887769280362813337359554598005322423266047996771926031069705049476071896145456496e-02_RKB &
1448 , 2.5882133604951158834505067096153142999479118048674944526997797755374306421629440393392427198869345793286369198147609e-02_RKB &
1449 , 2.0388373461266523598010231432754705122838627940185929365371868214433006532030353671253640300679157504987977281782909e-02_RKB &
1450 , 1.4626169256971252983787960308868356163881050162249770342103474631076960029748751959380482484308382288261238476948520e-02_RKB &
1451 , 8.6002698556429421986617879501023472521289227667077976622450602031426535362696437838448828009554532025301579670206091e-03_RKB &
1452 , 3.0735837185205315012182932460309874880335046882543449198461628212114333665590378156706265241414469306987988292234740e-03_RKB ]
1453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1454 !DIR$ ATTRIBUTES DLLEXPORT :: weightK41
1455#endif
1456
1457!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1458
1498 type :: GK51_type
1499 end type
1500
1528 type(GK51_type) , parameter :: GK51 = GK51_type()
1529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1530 !DIR$ ATTRIBUTES DLLEXPORT :: GK51
1531#endif
1532
1552 real(RKB) , parameter :: nodeG25(13) = &
1553 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1554 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1555 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1556 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1557 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1558 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1559 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1560 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1561 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1562 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1563 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1564 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1565 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB ]
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG25
1568#endif
1569
1589 real(RKB) , parameter :: weightG25(13) = &
1590 [ 1.2317605372671545120390287307905014243823362751815166539135219731691200794926142128460112517504958377310054583945994e-01_RKB &
1591 , 1.2224244299031004168895951894585150583505924756305904090758008223203896721918010243033540891078906637115620156845304e-01_RKB &
1592 , 1.1945576353578477222817812651290104739017670141372642551958788133518409022018773502442869720975271321374348568426235e-01_RKB &
1593 , 1.1485825914571164833932554586955580864093619166818014959151499003148279667112542256534429898558156273250513652351744e-01_RKB &
1594 , 1.0851962447426365311609395705011661934007758798672201615649430734883929279360844269339768350029654172135832773427565e-01_RKB &
1595 , 1.0053594906705064420220689039268582698846609452814190706986904199941294815904602968195565620373258211755226681206658e-01_RKB &
1596 , 9.1028261982963649811497220702891653380992558959334310970483768967017384678410526902484398142953718885872521590850372e-02_RKB &
1597 , 8.0140700335001018013234959669111302290225732853675893716201462973612828934801289559457377714225318048243957479325813e-02_RKB &
1598 , 6.8038333812356917207187185656707968554709494354636562615071226410003654051711473106651522969481873733098761760660898e-02_RKB &
1599 , 5.4904695975835191925936891540473324160109985553111349048508498244593774678436511895711924079433444763756746828817613e-02_RKB &
1600 , 4.0939156701306312655623487711645953660845783364104346504698414899297432880215512770478971055110424130123527015425511e-02_RKB &
1601 , 2.6354986615032137261901815295299144935963281703322468755366165783870934008879499371529821528172928890350362464605104e-02_RKB &
1602 , 1.1393798501026287947902964113234773603320526292909696448948061116189891729766743355923677112945033505688431618009664e-02_RKB ]
1603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1604 !DIR$ ATTRIBUTES DLLEXPORT :: weightG25
1605#endif
1606
1626 real(RKB) , parameter :: nodeK51(26) = &
1627 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1628 , 6.1544483005685078886546392366796631281724348039823545274305431751687279361558658545141048781022691067898008423227288e-02_RKB &
1629 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1630 , 1.8371893942104889201596988875952841578528447834990555215034512653236752851109815617651867160645591242103823539931527e-01_RKB &
1631 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1632 , 3.0308953893110783016747890998033932920041937876655194685731578452573120372337209717349617882111662416355753711853559e-01_RKB &
1633 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1634 , 4.1788538219303774885181439459457248709336998140069528034955785068796932076966599548717224205109797297615032607570119e-01_RKB &
1635 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1636 , 5.2632528433471918259962377815801017803683252320191114313002425180471455022502695302371008520604638341970901082293650e-01_RKB &
1637 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1638 , 6.2681009901031741278812268162451788101954628995068510806525222008437260184181183053045236423845198752346149030569920e-01_RKB &
1639 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1640 , 7.1776640681308438818665407977329778059771167555515582423493486823991612820974965089522905953765860328116692570706602e-01_RKB &
1641 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1642 , 7.9787379799850005941041090499430656940863230009338267661706934499488650817643824077118950314443984031474353711531825e-01_RKB &
1643 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1644 , 8.6584706529327559544899696958834008820284409402823690293965213246691432948180280120756708738064779055576005302835351e-01_RKB &
1645 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1646 , 9.2074711528170156174634608454633063157457035996277199700642836501131385042631212407808952281702820179915510491592339e-01_RKB &
1647 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1648 , 9.6161498642584251241813003366016724169212642963709676666624520141292893281185666917636407790823210892689040877316178e-01_RKB &
1649 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1650 , 9.8803579453407724763733101457740622707248415209160748131449972199405186821347293686245404742032360498210710718706868e-01_RKB &
1651 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB &
1652 , 9.9926210499260983419345748654034059370452496042279618586228697762904524428167719073818746102238075978747461480736921e-01_RKB ]
1653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1654 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK51
1655#endif
1656
1676 real(RKB) , parameter :: weightK51(26) = &
1677 [ 6.1580818067832935078759824240064553190436936903140808056908996403358367244202623293256774502185186717703954810463664e-02_RKB &
1678 , 6.1471189871425316661544131965264177586537962876885022711111683500151700796198726558483367566537422877227096643444043e-02_RKB &
1679 , 6.1128509717053048305859030416292711922678552321960938357322028070390133769952032831204895569347757809858568165047769e-02_RKB &
1680 , 6.0539455376045862945360267517565427162312365710457079923487043144554747810689514408013582515489930908693681447570811e-02_RKB &
1681 , 5.9720340324174059979099291932561853835363045476189975483372207816149988460708299020779612375010639778624011960832019e-02_RKB &
1682 , 5.8689680022394207961974175856787764139795646254828315293243700305012569486054157617049685031506591863121580010947248e-02_RKB &
1683 , 5.7437116361567832853582693939506471994832856823896682976509412313367495727224381199978598247737089593472710899482737e-02_RKB &
1684 , 5.5950811220412317308240686382747346820271035112771802428932791066115158268338607019365831655460314732208940609352540e-02_RKB &
1685 , 5.4251129888545490144543370459875606826076838441263383072163293312936923476650934130242315028422047795830492882862973e-02_RKB &
1686 , 5.2362885806407475864366712137872714887351550723707596350905793656046659248541276597504566497990926306481919129870507e-02_RKB &
1687 , 5.0277679080715671963325259433440084440587630604775975142050968279743014641141402310302584542633557037153607386127936e-02_RKB &
1688 , 4.7982537138836713906392255756914754983592207423271169651235865196757913880334117810235517477328110033499422471098658e-02_RKB &
1689 , 4.5502913049921788909870584752660393043707768935695327316724254392794299567957035458208970599641697203261236226745020e-02_RKB &
1690 , 4.2872845020170049476895792439495161101999504199883328877919242515738957655253932048951366960802592343905647433925806e-02_RKB &
1691 , 4.0083825504032382074839284467075646401410549266591308713115878386835777315058451955614116158949614066927183232852042e-02_RKB &
1692 , 3.7116271483415543560330625367619875995997802688047764805628702762773009669395760582294525748583875707140577080663373e-02_RKB &
1693 , 3.4002130274329337836748795229551203225670528250050443083264193121524339063344855010257660547708022429300203676502386e-02_RKB &
1694 , 3.0792300167387488891109020215228585600877162393292487644544830559965388047996492709248618249084851477787538356572832e-02_RKB &
1695 , 2.7475317587851737802948455517811078614796013288710603199613621069727810352835469926107822047433566792405123805901196e-02_RKB &
1696 , 2.4009945606953216220092489164881081392931528209659330290734972342536012282191913069778658241972047765300060007037359e-02_RKB &
1697 , 2.0435371145882835456568292235938973678758006097668937220074531550163622566841885855957623103354443247806459277197725e-02_RKB &
1698 , 1.6847817709128298231516667536336315840402654624706139411175769276842182270078960078544597372646532637619276509222462e-02_RKB &
1699 , 1.3236229195571674813656405846976238077578084997863654732213860488560614587634395544002156258192582265590155862296710e-02_RKB &
1700 , 9.4739733861741516072077105236553238716453268483726334971394029603529306140359023187904705754719643032594360138998941e-03_RKB &
1701 , 5.5619321353567137580402369010655220701769295496290984052961210793810038857581724171021610100708799763006942755331129e-03_RKB &
1702 , 1.9873838923303159265078518828434098894299804282505973837653346298985629336820118753523093675303476883723992297810124e-03_RKB ]
1703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1704 !DIR$ ATTRIBUTES DLLEXPORT :: weightK51
1705#endif
1706
1707!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1708
1748 type :: GK61_type
1749 end type
1750
1778 type(GK61_type) , parameter :: GK61 = GK61_type()
1779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1780 !DIR$ ATTRIBUTES DLLEXPORT :: GK61
1781#endif
1782
1802 real(RKB) , parameter :: nodeG30(15) = &
1803 [ 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1804 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1805 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1806 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1807 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1808 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1809 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1810 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1811 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1812 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1813 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1814 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1815 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1816 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1817 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB ]
1818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1819 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG30
1820#endif
1821
1841 real(RKB) , parameter :: weightG30(15) = &
1842 [ 1.0285265289355884034128563670541504386837555706492822258631898667601623865660942939262884632188870916503815852709086e-01_RKB &
1843 , 1.0176238974840550459642895216855404463270628948712684086426094541964251360531767494547599781978391198881693385887696e-01_RKB &
1844 , 9.9593420586795267062780282103569476529869263666704277221365146183946660389908809018092299289324184705373523229592037e-02_RKB &
1845 , 9.6368737174644259639468626351809865096406461430160245912994275732837534742003123724951247818104195363343093583583429e-02_RKB &
1846 , 9.2122522237786128717632707087618767196913234418234107527675047001973047070094168298464052916811907158954949394100501e-02_RKB &
1847 , 8.6899787201082979802387530715125702576753328743545344012222129882153582254261494247955033509639105330215477601953921e-02_RKB &
1848 , 8.0755895229420215354694938460529730875892803708439299890258593706051180567026345604212402769217808080749416147400962e-02_RKB &
1849 , 7.3755974737705206268243850022190734153770526037049438941269182374599399314635211710401352716638183270192254236882630e-02_RKB &
1850 , 6.5974229882180495128128515115962361237442953656660378967031516042143672466094179365819913911598737439478205808271237e-02_RKB &
1851 , 5.7493156217619066481721689402056128797120670721763134548715799003232147409954376925211999650950125355559974348279846e-02_RKB &
1852 , 4.8402672830594052902938140422807517815271809197372736345191936791805425677102152797767439563562263454374645955072007e-02_RKB &
1853 , 3.8799192569627049596801936446347692033200976766395352107732789705946970952769793919055026279035105656340228558382274e-02_RKB &
1854 , 2.8784707883323369349719179611292043639588894546287496474180122608145988940013933101730206711484171554940392262251283e-02_RKB &
1855 , 1.8466468311090959142302131912047269096206533968181403371298365514585599521307973654080519029675417955638095832046164e-02_RKB &
1856 , 7.9681924961666056154658834746736224504806965871517212294851633569200384329013332941536616922861735209846506562158817e-03_RKB ]
1857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1858 !DIR$ ATTRIBUTES DLLEXPORT :: weightG30
1859#endif
1860
1880 real(RKB) , parameter :: nodeK61(31) = &
1881 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1882 , 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1883 , 1.0280693796673703014709675131800059247190133296515840552101946914632788253917872738234797140786490207720254922664913e-01_RKB &
1884 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1885 , 2.0452511668230989143895767100202470952410426459556377447604465028350321894663245495592565235317147819577892124850607e-01_RKB &
1886 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1887 , 3.0407320227362507737267710719925655353115778980946272844421536998312150442387767304001423699909778588529370119457430e-01_RKB &
1888 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1889 , 4.0040125483039439253547621154266063361104593297078395983186610656429170689311759061175527015710247383961903284673474e-01_RKB &
1890 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1891 , 4.9248046786177857499369306120770879564426564096318697026073340982988422546396352776837047452262025983265531109327026e-01_RKB &
1892 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1893 , 5.7934523582636169175602493217254049590705158881215289208126016612312833567812241903809970751783808208940322061083509e-01_RKB &
1894 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1895 , 6.6006106412662696137005366814927075303835037480883390955067197339904937499734522076788020517029688190998858739703079e-01_RKB &
1896 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1897 , 7.3379006245322680472617113136952764566938172775468549208701399518300016463613325382024664531597318795933262446521430e-01_RKB &
1898 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1899 , 7.9972783582183908301366894232268324073569842937778450923647349548686662567326007229195202524185356472023967927713548e-01_RKB &
1900 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1901 , 8.5720523354606109895865851065894385682080017062359612850504551739119887225712932688031120704657195642614071367390794e-01_RKB &
1902 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1903 , 9.0557330769990779854652255892595831956897536366222841356404766397803760239449631913585074426842574155323901785046522e-01_RKB &
1904 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1905 , 9.4437444474855997941583132403743912158564371496498093181748940139520917000657342753448871376849848523800667868447591e-01_RKB &
1906 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1907 , 9.7311632250112626837469386842370688488763796428343933853755850185624118958166838288308561708261486365954975485787212e-01_RKB &
1908 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1909 , 9.9163099687040459485862836610948572485050033374616325510019923349807489603260796605556191495843575227494654783755353e-01_RKB &
1910 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB &
1911 , 9.9948441005049063757132589570581081946887394701850801923632642830748016674843587830656468823145435723317885056396548e-01_RKB ]
1912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1913 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK61
1914#endif
1915
1935 real(RKB) , parameter :: weightK61(31) = &
1936 [ 5.1494729429451567558340433647099307532736880396464168074637323362474083844397567724480716864880173808112573901197920e-02_RKB &
1937 , 5.1426128537459025933862879215781259829552034862395987263855824172761589259406892072066110681184224608133314131500422e-02_RKB &
1938 , 5.1221547849258772170656282604944208251146952425246327553509056805511015401279553971190412722969308620984161625812560e-02_RKB &
1939 , 5.0881795898749606492297473049804691853384914260919239920771942080972542646780575571132056254070929858650733836163479e-02_RKB &
1940 , 5.0405921402782346840893085653585028902197018251622233664243959211066713308635283713447747907973700791599900911248852e-02_RKB &
1941 , 4.9795683427074206357811569379942328539209602813696108951047392842948482646220377655098341924089250200477846596263918e-02_RKB &
1942 , 4.9055434555029778887528165367238173605887405295296569579490717901328215644590555247522873065246297467067324397612445e-02_RKB &
1943 , 4.8185861757087129140779492298304592605799236108429800057373350872433793583969368428942672063270298939865425225579922e-02_RKB &
1944 , 4.7185546569299153945261478181099486482884807300628457194141861551725533289490897029020276525603515502104799540544222e-02_RKB &
1945 , 4.6059238271006988116271735559373580594692875571824924004732379492293604006446052672252973438978639166425766841417488e-02_RKB &
1946 , 4.4814800133162663192355551616723243757431392796373009889680201194063503947907899189061064792111919040540351834527742e-02_RKB &
1947 , 4.3452539701356069316831728117073258074603308631703168064888805495738640839573863333942084117196541456054957383622173e-02_RKB &
1948 , 4.1969810215164246147147541285969757790088656718992374820388720323852655511200365790379948462006156953358103259681948e-02_RKB &
1949 , 4.0374538951535959111995279752468114216126062126030255633998289613810846761059740961836828802959573901107306640876603e-02_RKB &
1950 , 3.8678945624727592950348651532281050250923629821553846790376130679337402056620700554139109487533759557982632153728099e-02_RKB &
1951 , 3.6882364651821229223911065617135967736955164781030337670005198584196134970154169862584193360751243227989492571664973e-02_RKB &
1952 , 3.4979338028060024137499670731467875097226912794818719972208457232177786702008744219498470603846784465175225933802357e-02_RKB &
1953 , 3.2981447057483726031814191016853927510599291213858385714519347641452316582381008804994515341969205985818543200837577e-02_RKB &
1954 , 3.0907257562387762472884252943092272635270458523807153426840486964022086189874056947717446328187131273807982629114591e-02_RKB &
1955 , 2.8754048765041292843978785354334211144679160542074930035102280759132174815469834227854660515366003136772757344886331e-02_RKB &
1956 , 2.6509954882333101610601709335075414366517579522748565770867438338472138903658077617652522759934474895733739329287706e-02_RKB &
1957 , 2.4191162078080601365686370725232026760391377828182462432228943562944885267501070688006470962871743661192935455117297e-02_RKB &
1958 , 2.1828035821609192297167485738338993401507296056834912773630422358720439403382559079356058602393879803560534375378340e-02_RKB &
1959 , 1.9414141193942381173408951050128455851421014191431525770276066536497179079025540486072726114628763606440143557769099e-02_RKB &
1960 , 1.6920889189053272627572289420322092368566703783835191139883410840546679978551861043620089451681146020853650713611444e-02_RKB &
1961 , 1.4369729507045804812451432443580010195841899895001505873565899403000198662495821906144274682894222591414503342336172e-02_RKB &
1962 , 1.1823015253496341742232898853250592896264406250607818326302431548265365155855182739401700032519141448997853772603766e-02_RKB &
1963 , 9.2732796595177634284411468920243604212700249381931076964956469143626665557434385492325784596343112153704094886248672e-03_RKB &
1964 , 6.6307039159312921733198263697501681336283882177812585973955597357837568277731921327731815844512598157843672104469554e-03_RKB &
1965 , 3.8904611270998840512672018445155032785151429848864649214200101281144733676455451061226273655941038347210163533085954e-03_RKB &
1966 , 1.3890136986770076245515912267596996810488412919632724534411055332301367130989865366956251556423820479579333920310978e-03_RKB ]
1967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1968 !DIR$ ATTRIBUTES DLLEXPORT :: weightK61
1969#endif
1970
1971!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1972
2036 interface setNodeWeightGK
2037
2038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2039
2040#if RK5_ENABLED
2041 PURE module subroutine setNodeWeightGKFixed_RK5(nodeK, weightK, weightG)
2042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2043 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK5
2044#endif
2045 use pm_kind, only: RKC => RK5
2046 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2047 end subroutine
2048#endif
2049
2050#if RK4_ENABLED
2051 PURE module subroutine setNodeWeightGKFixed_RK4(nodeK, weightK, weightG)
2052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2053 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK4
2054#endif
2055 use pm_kind, only: RKC => RK4
2056 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2057 end subroutine
2058#endif
2059
2060#if RK3_ENABLED
2061 PURE module subroutine setNodeWeightGKFixed_RK3(nodeK, weightK, weightG)
2062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2063 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK3
2064#endif
2065 use pm_kind, only: RKC => RK3
2066 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2067 end subroutine
2068#endif
2069
2070#if RK2_ENABLED
2071 PURE module subroutine setNodeWeightGKFixed_RK2(nodeK, weightK, weightG)
2072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2073 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK2
2074#endif
2075 use pm_kind, only: RKC => RK2
2076 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2077 end subroutine
2078#endif
2079
2080#if RK1_ENABLED
2081 PURE module subroutine setNodeWeightGKFixed_RK1(nodeK, weightK, weightG)
2082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2083 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK1
2084#endif
2085 use pm_kind, only: RKC => RK1
2086 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2087 end subroutine
2088#endif
2089
2090 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2091
2092#if RK5_ENABLED
2093 PURE module subroutine setNodeWeightGKAlloc_RK5(order, nodeK, weightK, weightG)
2094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2095 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK5
2096#endif
2097 use pm_kind, only: RKC => RK5
2098 integer(IK) , intent(in) :: order
2099 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2100 end subroutine
2101#endif
2102
2103#if RK4_ENABLED
2104 PURE module subroutine setNodeWeightGKAlloc_RK4(order, nodeK, weightK, weightG)
2105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2106 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK4
2107#endif
2108 use pm_kind, only: RKC => RK4
2109 integer(IK) , intent(in) :: order
2110 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2111 end subroutine
2112#endif
2113
2114#if RK3_ENABLED
2115 PURE module subroutine setNodeWeightGKAlloc_RK3(order, nodeK, weightK, weightG)
2116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2117 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK3
2118#endif
2119 use pm_kind, only: RKC => RK3
2120 integer(IK) , intent(in) :: order
2121 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2122 end subroutine
2123#endif
2124
2125#if RK2_ENABLED
2126 PURE module subroutine setNodeWeightGKAlloc_RK2(order, nodeK, weightK, weightG)
2127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2128 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK2
2129#endif
2130 use pm_kind, only: RKC => RK2
2131 integer(IK) , intent(in) :: order
2132 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2133 end subroutine
2134#endif
2135
2136#if RK1_ENABLED
2137 PURE module subroutine setNodeWeightGKAlloc_RK1(order, nodeK, weightK, weightG)
2138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2139 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK1
2140#endif
2141 use pm_kind, only: RKC => RK1
2142 integer(IK) , intent(in) :: order
2143 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2144 end subroutine
2145#endif
2146
2147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2148
2149 end interface
2150
2151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2152
2153 ! Naming convention: getQuadGKDFU, getQuadGKDPU, getQuadGKDNU, getQuadGKDBU
2154 ! G: Gauss rule,
2155 ! K: Kronrod rule,
2156 ! D: default method,
2157 ! F: finite integration limits,
2158 ! P: Positive integration limit,
2159 ! N: Negative integration limit,
2160 ! B: Both negative and positive integration limits,
2161
2269
2270 ! GK15
2271
2272 interface getQuadGK
2273
2274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2275
2276#if RK5_ENABLED
2277 module function getQuadGK15_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2279 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK5
2280#endif
2281 use pm_kind, only: RKC => RK5
2282 procedure(real(RKC)) :: getFunc
2283 real(RKC) , intent(in) :: lb
2284 real(RKC) , intent(in) :: ub
2285 type(GK15_type) , intent(in) :: qrule
2286 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2287 real(RKC) :: quadGK
2288 end function
2289#endif
2290
2291#if RK4_ENABLED
2292 module function getQuadGK15_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2294 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK4
2295#endif
2296 use pm_kind, only: RKC => RK4
2297 procedure(real(RKC)) :: getFunc
2298 real(RKC) , intent(in) :: lb
2299 real(RKC) , intent(in) :: ub
2300 type(GK15_type) , intent(in) :: qrule
2301 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2302 real(RKC) :: quadGK
2303 end function
2304#endif
2305
2306#if RK3_ENABLED
2307 module function getQuadGK15_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2309 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK3
2310#endif
2311 use pm_kind, only: RKC => RK3
2312 procedure(real(RKC)) :: getFunc
2313 real(RKC) , intent(in) :: lb
2314 real(RKC) , intent(in) :: ub
2315 type(GK15_type) , intent(in) :: qrule
2316 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2317 real(RKC) :: quadGK
2318 end function
2319#endif
2320
2321#if RK2_ENABLED
2322 module function getQuadGK15_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2324 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK2
2325#endif
2326 use pm_kind, only: RKC => RK2
2327 procedure(real(RKC)) :: getFunc
2328 real(RKC) , intent(in) :: lb
2329 real(RKC) , intent(in) :: ub
2330 type(GK15_type) , intent(in) :: qrule
2331 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2332 real(RKC) :: quadGK
2333 end function
2334#endif
2335
2336#if RK1_ENABLED
2337 module function getQuadGK15_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2339 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK1
2340#endif
2341 use pm_kind, only: RKC => RK1
2342 procedure(real(RKC)) :: getFunc
2343 real(RKC) , intent(in) :: lb
2344 real(RKC) , intent(in) :: ub
2345 type(GK15_type) , intent(in) :: qrule
2346 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2347 real(RKC) :: quadGK
2348 end function
2349#endif
2350
2351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2352
2353#if RK5_ENABLED
2354 module function getQuadGK15_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2356 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK5
2357#endif
2358 use pm_kind, only: RKC => RK5
2359 procedure(real(RKC)) :: getFunc
2360 real(RKC) , intent(in) :: lb
2361 type(pinf_type) , intent(in) :: ub
2362 type(GK15_type) , intent(in) :: qrule
2363 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2364 real(RKC) :: quadGK
2365 end function
2366#endif
2367
2368#if RK4_ENABLED
2369 module function getQuadGK15_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2371 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK4
2372#endif
2373 use pm_kind, only: RKC => RK4
2374 procedure(real(RKC)) :: getFunc
2375 real(RKC) , intent(in) :: lb
2376 type(pinf_type) , intent(in) :: ub
2377 type(GK15_type) , intent(in) :: qrule
2378 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2379 real(RKC) :: quadGK
2380 end function
2381#endif
2382
2383#if RK3_ENABLED
2384 module function getQuadGK15_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2386 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK3
2387#endif
2388 use pm_kind, only: RKC => RK3
2389 procedure(real(RKC)) :: getFunc
2390 real(RKC) , intent(in) :: lb
2391 type(pinf_type) , intent(in) :: ub
2392 type(GK15_type) , intent(in) :: qrule
2393 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2394 real(RKC) :: quadGK
2395 end function
2396#endif
2397
2398#if RK2_ENABLED
2399 module function getQuadGK15_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2401 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK2
2402#endif
2403 use pm_kind, only: RKC => RK2
2404 procedure(real(RKC)) :: getFunc
2405 real(RKC) , intent(in) :: lb
2406 type(pinf_type) , intent(in) :: ub
2407 type(GK15_type) , intent(in) :: qrule
2408 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2409 real(RKC) :: quadGK
2410 end function
2411#endif
2412
2413#if RK1_ENABLED
2414 module function getQuadGK15_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2416 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK1
2417#endif
2418 use pm_kind, only: RKC => RK1
2419 procedure(real(RKC)) :: getFunc
2420 real(RKC) , intent(in) :: lb
2421 type(pinf_type) , intent(in) :: ub
2422 type(GK15_type) , intent(in) :: qrule
2423 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2424 real(RKC) :: quadGK
2425 end function
2426#endif
2427
2428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2429
2430#if RK5_ENABLED
2431 module function getQuadGK15_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2433 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK5
2434#endif
2435 use pm_kind, only: RKC => RK5
2436 procedure(real(RKC)) :: getFunc
2437 type(ninf_type) , intent(in) :: lb
2438 real(RKC) , intent(in) :: ub
2439 type(GK15_type) , intent(in) :: qrule
2440 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2441 real(RKC) :: quadGK
2442 end function
2443#endif
2444
2445#if RK4_ENABLED
2446 module function getQuadGK15_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2448 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK4
2449#endif
2450 use pm_kind, only: RKC => RK4
2451 procedure(real(RKC)) :: getFunc
2452 type(ninf_type) , intent(in) :: lb
2453 real(RKC) , intent(in) :: ub
2454 type(GK15_type) , intent(in) :: qrule
2455 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2456 real(RKC) :: quadGK
2457 end function
2458#endif
2459
2460#if RK3_ENABLED
2461 module function getQuadGK15_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2463 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK3
2464#endif
2465 use pm_kind, only: RKC => RK3
2466 procedure(real(RKC)) :: getFunc
2467 type(ninf_type) , intent(in) :: lb
2468 real(RKC) , intent(in) :: ub
2469 type(GK15_type) , intent(in) :: qrule
2470 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2471 real(RKC) :: quadGK
2472 end function
2473#endif
2474
2475#if RK2_ENABLED
2476 module function getQuadGK15_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2478 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK2
2479#endif
2480 use pm_kind, only: RKC => RK2
2481 procedure(real(RKC)) :: getFunc
2482 type(ninf_type) , intent(in) :: lb
2483 real(RKC) , intent(in) :: ub
2484 type(GK15_type) , intent(in) :: qrule
2485 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2486 real(RKC) :: quadGK
2487 end function
2488#endif
2489
2490#if RK1_ENABLED
2491 module function getQuadGK15_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2493 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK1
2494#endif
2495 use pm_kind, only: RKC => RK1
2496 procedure(real(RKC)) :: getFunc
2497 type(ninf_type) , intent(in) :: lb
2498 real(RKC) , intent(in) :: ub
2499 type(GK15_type) , intent(in) :: qrule
2500 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2501 real(RKC) :: quadGK
2502 end function
2503#endif
2504
2505 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2506
2507#if RK5_ENABLED
2508 module function getQuadGK15_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2510 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK5
2511#endif
2512 use pm_kind, only: RKC => RK5
2513 procedure(real(RKC)) :: getFunc
2514 type(ninf_type) , intent(in) :: lb
2515 type(pinf_type) , intent(in) :: ub
2516 type(GK15_type) , intent(in) :: qrule
2517 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2518 real(RKC) :: quadGK
2519 end function
2520#endif
2521
2522#if RK4_ENABLED
2523 module function getQuadGK15_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2525 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK4
2526#endif
2527 use pm_kind, only: RKC => RK4
2528 procedure(real(RKC)) :: getFunc
2529 type(ninf_type) , intent(in) :: lb
2530 type(pinf_type) , intent(in) :: ub
2531 type(GK15_type) , intent(in) :: qrule
2532 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2533 real(RKC) :: quadGK
2534 end function
2535#endif
2536
2537#if RK3_ENABLED
2538 module function getQuadGK15_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2540 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK3
2541#endif
2542 use pm_kind, only: RKC => RK3
2543 procedure(real(RKC)) :: getFunc
2544 type(ninf_type) , intent(in) :: lb
2545 type(pinf_type) , intent(in) :: ub
2546 type(GK15_type) , intent(in) :: qrule
2547 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2548 real(RKC) :: quadGK
2549 end function
2550#endif
2551
2552#if RK2_ENABLED
2553 module function getQuadGK15_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2555 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK2
2556#endif
2557 use pm_kind, only: RKC => RK2
2558 procedure(real(RKC)) :: getFunc
2559 type(ninf_type) , intent(in) :: lb
2560 type(pinf_type) , intent(in) :: ub
2561 type(GK15_type) , intent(in) :: qrule
2562 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2563 real(RKC) :: quadGK
2564 end function
2565#endif
2566
2567#if RK1_ENABLED
2568 module function getQuadGK15_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2570 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK1
2571#endif
2572 use pm_kind, only: RKC => RK1
2573 procedure(real(RKC)) :: getFunc
2574 type(ninf_type) , intent(in) :: lb
2575 type(pinf_type) , intent(in) :: ub
2576 type(GK15_type) , intent(in) :: qrule
2577 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2578 real(RKC) :: quadGK
2579 end function
2580#endif
2581
2582 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2583
2584 end interface
2585
2586 ! GK21
2587
2588 interface getQuadGK
2589
2590 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2591
2592#if RK5_ENABLED
2593 module function getQuadGK21_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2595 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK5
2596#endif
2597 use pm_kind, only: RKC => RK5
2598 procedure(real(RKC)) :: getFunc
2599 real(RKC) , intent(in) :: lb
2600 real(RKC) , intent(in) :: ub
2601 type(GK21_type) , intent(in) :: qrule
2602 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2603 real(RKC) :: quadGK
2604 end function
2605#endif
2606
2607#if RK4_ENABLED
2608 module function getQuadGK21_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2610 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK4
2611#endif
2612 use pm_kind, only: RKC => RK4
2613 procedure(real(RKC)) :: getFunc
2614 real(RKC) , intent(in) :: lb
2615 real(RKC) , intent(in) :: ub
2616 type(GK21_type) , intent(in) :: qrule
2617 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2618 real(RKC) :: quadGK
2619 end function
2620#endif
2621
2622#if RK3_ENABLED
2623 module function getQuadGK21_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2625 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK3
2626#endif
2627 use pm_kind, only: RKC => RK3
2628 procedure(real(RKC)) :: getFunc
2629 real(RKC) , intent(in) :: lb
2630 real(RKC) , intent(in) :: ub
2631 type(GK21_type) , intent(in) :: qrule
2632 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2633 real(RKC) :: quadGK
2634 end function
2635#endif
2636
2637#if RK2_ENABLED
2638 module function getQuadGK21_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2640 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK2
2641#endif
2642 use pm_kind, only: RKC => RK2
2643 procedure(real(RKC)) :: getFunc
2644 real(RKC) , intent(in) :: lb
2645 real(RKC) , intent(in) :: ub
2646 type(GK21_type) , intent(in) :: qrule
2647 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2648 real(RKC) :: quadGK
2649 end function
2650#endif
2651
2652#if RK1_ENABLED
2653 module function getQuadGK21_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2655 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK1
2656#endif
2657 use pm_kind, only: RKC => RK1
2658 procedure(real(RKC)) :: getFunc
2659 real(RKC) , intent(in) :: lb
2660 real(RKC) , intent(in) :: ub
2661 type(GK21_type) , intent(in) :: qrule
2662 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2663 real(RKC) :: quadGK
2664 end function
2665#endif
2666
2667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2668
2669#if RK5_ENABLED
2670 module function getQuadGK21_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2672 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK5
2673#endif
2674 use pm_kind, only: RKC => RK5
2675 procedure(real(RKC)) :: getFunc
2676 real(RKC) , intent(in) :: lb
2677 type(pinf_type) , intent(in) :: ub
2678 type(GK21_type) , intent(in) :: qrule
2679 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2680 real(RKC) :: quadGK
2681 end function
2682#endif
2683
2684#if RK4_ENABLED
2685 module function getQuadGK21_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2687 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK4
2688#endif
2689 use pm_kind, only: RKC => RK4
2690 procedure(real(RKC)) :: getFunc
2691 real(RKC) , intent(in) :: lb
2692 type(pinf_type) , intent(in) :: ub
2693 type(GK21_type) , intent(in) :: qrule
2694 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2695 real(RKC) :: quadGK
2696 end function
2697#endif
2698
2699#if RK3_ENABLED
2700 module function getQuadGK21_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2702 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK3
2703#endif
2704 use pm_kind, only: RKC => RK3
2705 procedure(real(RKC)) :: getFunc
2706 real(RKC) , intent(in) :: lb
2707 type(pinf_type) , intent(in) :: ub
2708 type(GK21_type) , intent(in) :: qrule
2709 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2710 real(RKC) :: quadGK
2711 end function
2712#endif
2713
2714#if RK2_ENABLED
2715 module function getQuadGK21_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2717 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK2
2718#endif
2719 use pm_kind, only: RKC => RK2
2720 procedure(real(RKC)) :: getFunc
2721 real(RKC) , intent(in) :: lb
2722 type(pinf_type) , intent(in) :: ub
2723 type(GK21_type) , intent(in) :: qrule
2724 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2725 real(RKC) :: quadGK
2726 end function
2727#endif
2728
2729#if RK1_ENABLED
2730 module function getQuadGK21_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2732 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK1
2733#endif
2734 use pm_kind, only: RKC => RK1
2735 procedure(real(RKC)) :: getFunc
2736 real(RKC) , intent(in) :: lb
2737 type(pinf_type) , intent(in) :: ub
2738 type(GK21_type) , intent(in) :: qrule
2739 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2740 real(RKC) :: quadGK
2741 end function
2742#endif
2743
2744 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2745
2746#if RK5_ENABLED
2747 module function getQuadGK21_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2749 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK5
2750#endif
2751 use pm_kind, only: RKC => RK5
2752 procedure(real(RKC)) :: getFunc
2753 type(ninf_type) , intent(in) :: lb
2754 real(RKC) , intent(in) :: ub
2755 type(GK21_type) , intent(in) :: qrule
2756 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2757 real(RKC) :: quadGK
2758 end function
2759#endif
2760
2761#if RK4_ENABLED
2762 module function getQuadGK21_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2764 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK4
2765#endif
2766 use pm_kind, only: RKC => RK4
2767 procedure(real(RKC)) :: getFunc
2768 type(ninf_type) , intent(in) :: lb
2769 real(RKC) , intent(in) :: ub
2770 type(GK21_type) , intent(in) :: qrule
2771 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2772 real(RKC) :: quadGK
2773 end function
2774#endif
2775
2776#if RK3_ENABLED
2777 module function getQuadGK21_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2779 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK3
2780#endif
2781 use pm_kind, only: RKC => RK3
2782 procedure(real(RKC)) :: getFunc
2783 type(ninf_type) , intent(in) :: lb
2784 real(RKC) , intent(in) :: ub
2785 type(GK21_type) , intent(in) :: qrule
2786 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2787 real(RKC) :: quadGK
2788 end function
2789#endif
2790
2791#if RK2_ENABLED
2792 module function getQuadGK21_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2794 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK2
2795#endif
2796 use pm_kind, only: RKC => RK2
2797 procedure(real(RKC)) :: getFunc
2798 type(ninf_type) , intent(in) :: lb
2799 real(RKC) , intent(in) :: ub
2800 type(GK21_type) , intent(in) :: qrule
2801 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2802 real(RKC) :: quadGK
2803 end function
2804#endif
2805
2806#if RK1_ENABLED
2807 module function getQuadGK21_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2809 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK1
2810#endif
2811 use pm_kind, only: RKC => RK1
2812 procedure(real(RKC)) :: getFunc
2813 type(ninf_type) , intent(in) :: lb
2814 real(RKC) , intent(in) :: ub
2815 type(GK21_type) , intent(in) :: qrule
2816 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2817 real(RKC) :: quadGK
2818 end function
2819#endif
2820
2821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2822
2823#if RK5_ENABLED
2824 module function getQuadGK21_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2826 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK5
2827#endif
2828 use pm_kind, only: RKC => RK5
2829 procedure(real(RKC)) :: getFunc
2830 type(ninf_type) , intent(in) :: lb
2831 type(pinf_type) , intent(in) :: ub
2832 type(GK21_type) , intent(in) :: qrule
2833 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2834 real(RKC) :: quadGK
2835 end function
2836#endif
2837
2838#if RK4_ENABLED
2839 module function getQuadGK21_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2841 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK4
2842#endif
2843 use pm_kind, only: RKC => RK4
2844 procedure(real(RKC)) :: getFunc
2845 type(ninf_type) , intent(in) :: lb
2846 type(pinf_type) , intent(in) :: ub
2847 type(GK21_type) , intent(in) :: qrule
2848 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2849 real(RKC) :: quadGK
2850 end function
2851#endif
2852
2853#if RK3_ENABLED
2854 module function getQuadGK21_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2856 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK3
2857#endif
2858 use pm_kind, only: RKC => RK3
2859 procedure(real(RKC)) :: getFunc
2860 type(ninf_type) , intent(in) :: lb
2861 type(pinf_type) , intent(in) :: ub
2862 type(GK21_type) , intent(in) :: qrule
2863 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2864 real(RKC) :: quadGK
2865 end function
2866#endif
2867
2868#if RK2_ENABLED
2869 module function getQuadGK21_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2871 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK2
2872#endif
2873 use pm_kind, only: RKC => RK2
2874 procedure(real(RKC)) :: getFunc
2875 type(ninf_type) , intent(in) :: lb
2876 type(pinf_type) , intent(in) :: ub
2877 type(GK21_type) , intent(in) :: qrule
2878 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2879 real(RKC) :: quadGK
2880 end function
2881#endif
2882
2883#if RK1_ENABLED
2884 module function getQuadGK21_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2886 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK1
2887#endif
2888 use pm_kind, only: RKC => RK1
2889 procedure(real(RKC)) :: getFunc
2890 type(ninf_type) , intent(in) :: lb
2891 type(pinf_type) , intent(in) :: ub
2892 type(GK21_type) , intent(in) :: qrule
2893 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2894 real(RKC) :: quadGK
2895 end function
2896#endif
2897
2898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2899
2900 end interface
2901
2902 ! GK31
2903
2904 interface getQuadGK
2905
2906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2907
2908#if RK5_ENABLED
2909 module function getQuadGK31_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2911 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK5
2912#endif
2913 use pm_kind, only: RKC => RK5
2914 procedure(real(RKC)) :: getFunc
2915 real(RKC) , intent(in) :: lb
2916 real(RKC) , intent(in) :: ub
2917 type(GK31_type) , intent(in) :: qrule
2918 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2919 real(RKC) :: quadGK
2920 end function
2921#endif
2922
2923#if RK4_ENABLED
2924 module function getQuadGK31_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2926 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK4
2927#endif
2928 use pm_kind, only: RKC => RK4
2929 procedure(real(RKC)) :: getFunc
2930 real(RKC) , intent(in) :: lb
2931 real(RKC) , intent(in) :: ub
2932 type(GK31_type) , intent(in) :: qrule
2933 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2934 real(RKC) :: quadGK
2935 end function
2936#endif
2937
2938#if RK3_ENABLED
2939 module function getQuadGK31_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2941 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK3
2942#endif
2943 use pm_kind, only: RKC => RK3
2944 procedure(real(RKC)) :: getFunc
2945 real(RKC) , intent(in) :: lb
2946 real(RKC) , intent(in) :: ub
2947 type(GK31_type) , intent(in) :: qrule
2948 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2949 real(RKC) :: quadGK
2950 end function
2951#endif
2952
2953#if RK2_ENABLED
2954 module function getQuadGK31_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2956 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK2
2957#endif
2958 use pm_kind, only: RKC => RK2
2959 procedure(real(RKC)) :: getFunc
2960 real(RKC) , intent(in) :: lb
2961 real(RKC) , intent(in) :: ub
2962 type(GK31_type) , intent(in) :: qrule
2963 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2964 real(RKC) :: quadGK
2965 end function
2966#endif
2967
2968#if RK1_ENABLED
2969 module function getQuadGK31_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2971 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK1
2972#endif
2973 use pm_kind, only: RKC => RK1
2974 procedure(real(RKC)) :: getFunc
2975 real(RKC) , intent(in) :: lb
2976 real(RKC) , intent(in) :: ub
2977 type(GK31_type) , intent(in) :: qrule
2978 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2979 real(RKC) :: quadGK
2980 end function
2981#endif
2982
2983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2984
2985#if RK5_ENABLED
2986 module function getQuadGK31_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2988 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK5
2989#endif
2990 use pm_kind, only: RKC => RK5
2991 procedure(real(RKC)) :: getFunc
2992 real(RKC) , intent(in) :: lb
2993 type(pinf_type) , intent(in) :: ub
2994 type(GK31_type) , intent(in) :: qrule
2995 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2996 real(RKC) :: quadGK
2997 end function
2998#endif
2999
3000#if RK4_ENABLED
3001 module function getQuadGK31_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3003 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK4
3004#endif
3005 use pm_kind, only: RKC => RK4
3006 procedure(real(RKC)) :: getFunc
3007 real(RKC) , intent(in) :: lb
3008 type(pinf_type) , intent(in) :: ub
3009 type(GK31_type) , intent(in) :: qrule
3010 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3011 real(RKC) :: quadGK
3012 end function
3013#endif
3014
3015#if RK3_ENABLED
3016 module function getQuadGK31_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3018 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK3
3019#endif
3020 use pm_kind, only: RKC => RK3
3021 procedure(real(RKC)) :: getFunc
3022 real(RKC) , intent(in) :: lb
3023 type(pinf_type) , intent(in) :: ub
3024 type(GK31_type) , intent(in) :: qrule
3025 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3026 real(RKC) :: quadGK
3027 end function
3028#endif
3029
3030#if RK2_ENABLED
3031 module function getQuadGK31_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3033 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK2
3034#endif
3035 use pm_kind, only: RKC => RK2
3036 procedure(real(RKC)) :: getFunc
3037 real(RKC) , intent(in) :: lb
3038 type(pinf_type) , intent(in) :: ub
3039 type(GK31_type) , intent(in) :: qrule
3040 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3041 real(RKC) :: quadGK
3042 end function
3043#endif
3044
3045#if RK1_ENABLED
3046 module function getQuadGK31_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3048 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK1
3049#endif
3050 use pm_kind, only: RKC => RK1
3051 procedure(real(RKC)) :: getFunc
3052 real(RKC) , intent(in) :: lb
3053 type(pinf_type) , intent(in) :: ub
3054 type(GK31_type) , intent(in) :: qrule
3055 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3056 real(RKC) :: quadGK
3057 end function
3058#endif
3059
3060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3061
3062#if RK5_ENABLED
3063 module function getQuadGK31_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3065 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK5
3066#endif
3067 use pm_kind, only: RKC => RK5
3068 procedure(real(RKC)) :: getFunc
3069 type(ninf_type) , intent(in) :: lb
3070 real(RKC) , intent(in) :: ub
3071 type(GK31_type) , intent(in) :: qrule
3072 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3073 real(RKC) :: quadGK
3074 end function
3075#endif
3076
3077#if RK4_ENABLED
3078 module function getQuadGK31_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3080 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK4
3081#endif
3082 use pm_kind, only: RKC => RK4
3083 procedure(real(RKC)) :: getFunc
3084 type(ninf_type) , intent(in) :: lb
3085 real(RKC) , intent(in) :: ub
3086 type(GK31_type) , intent(in) :: qrule
3087 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3088 real(RKC) :: quadGK
3089 end function
3090#endif
3091
3092#if RK3_ENABLED
3093 module function getQuadGK31_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3095 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK3
3096#endif
3097 use pm_kind, only: RKC => RK3
3098 procedure(real(RKC)) :: getFunc
3099 type(ninf_type) , intent(in) :: lb
3100 real(RKC) , intent(in) :: ub
3101 type(GK31_type) , intent(in) :: qrule
3102 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3103 real(RKC) :: quadGK
3104 end function
3105#endif
3106
3107#if RK2_ENABLED
3108 module function getQuadGK31_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3110 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK2
3111#endif
3112 use pm_kind, only: RKC => RK2
3113 procedure(real(RKC)) :: getFunc
3114 type(ninf_type) , intent(in) :: lb
3115 real(RKC) , intent(in) :: ub
3116 type(GK31_type) , intent(in) :: qrule
3117 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3118 real(RKC) :: quadGK
3119 end function
3120#endif
3121
3122#if RK1_ENABLED
3123 module function getQuadGK31_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3125 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK1
3126#endif
3127 use pm_kind, only: RKC => RK1
3128 procedure(real(RKC)) :: getFunc
3129 type(ninf_type) , intent(in) :: lb
3130 real(RKC) , intent(in) :: ub
3131 type(GK31_type) , intent(in) :: qrule
3132 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3133 real(RKC) :: quadGK
3134 end function
3135#endif
3136
3137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3138
3139#if RK5_ENABLED
3140 module function getQuadGK31_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3142 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK5
3143#endif
3144 use pm_kind, only: RKC => RK5
3145 procedure(real(RKC)) :: getFunc
3146 type(ninf_type) , intent(in) :: lb
3147 type(pinf_type) , intent(in) :: ub
3148 type(GK31_type) , intent(in) :: qrule
3149 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3150 real(RKC) :: quadGK
3151 end function
3152#endif
3153
3154#if RK4_ENABLED
3155 module function getQuadGK31_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3157 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK4
3158#endif
3159 use pm_kind, only: RKC => RK4
3160 procedure(real(RKC)) :: getFunc
3161 type(ninf_type) , intent(in) :: lb
3162 type(pinf_type) , intent(in) :: ub
3163 type(GK31_type) , intent(in) :: qrule
3164 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3165 real(RKC) :: quadGK
3166 end function
3167#endif
3168
3169#if RK3_ENABLED
3170 module function getQuadGK31_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3172 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK3
3173#endif
3174 use pm_kind, only: RKC => RK3
3175 procedure(real(RKC)) :: getFunc
3176 type(ninf_type) , intent(in) :: lb
3177 type(pinf_type) , intent(in) :: ub
3178 type(GK31_type) , intent(in) :: qrule
3179 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3180 real(RKC) :: quadGK
3181 end function
3182#endif
3183
3184#if RK2_ENABLED
3185 module function getQuadGK31_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3187 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK2
3188#endif
3189 use pm_kind, only: RKC => RK2
3190 procedure(real(RKC)) :: getFunc
3191 type(ninf_type) , intent(in) :: lb
3192 type(pinf_type) , intent(in) :: ub
3193 type(GK31_type) , intent(in) :: qrule
3194 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3195 real(RKC) :: quadGK
3196 end function
3197#endif
3198
3199#if RK1_ENABLED
3200 module function getQuadGK31_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3202 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK1
3203#endif
3204 use pm_kind, only: RKC => RK1
3205 procedure(real(RKC)) :: getFunc
3206 type(ninf_type) , intent(in) :: lb
3207 type(pinf_type) , intent(in) :: ub
3208 type(GK31_type) , intent(in) :: qrule
3209 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3210 real(RKC) :: quadGK
3211 end function
3212#endif
3213
3214 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3215
3216 end interface
3217
3218 ! GK41
3219
3220 interface getQuadGK
3221
3222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3223
3224#if RK5_ENABLED
3225 module function getQuadGK41_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3227 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK5
3228#endif
3229 use pm_kind, only: RKC => RK5
3230 procedure(real(RKC)) :: getFunc
3231 real(RKC) , intent(in) :: lb
3232 real(RKC) , intent(in) :: ub
3233 type(GK41_type) , intent(in) :: qrule
3234 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3235 real(RKC) :: quadGK
3236 end function
3237#endif
3238
3239#if RK4_ENABLED
3240 module function getQuadGK41_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3242 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK4
3243#endif
3244 use pm_kind, only: RKC => RK4
3245 procedure(real(RKC)) :: getFunc
3246 real(RKC) , intent(in) :: lb
3247 real(RKC) , intent(in) :: ub
3248 type(GK41_type) , intent(in) :: qrule
3249 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3250 real(RKC) :: quadGK
3251 end function
3252#endif
3253
3254#if RK3_ENABLED
3255 module function getQuadGK41_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3257 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK3
3258#endif
3259 use pm_kind, only: RKC => RK3
3260 procedure(real(RKC)) :: getFunc
3261 real(RKC) , intent(in) :: lb
3262 real(RKC) , intent(in) :: ub
3263 type(GK41_type) , intent(in) :: qrule
3264 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3265 real(RKC) :: quadGK
3266 end function
3267#endif
3268
3269#if RK2_ENABLED
3270 module function getQuadGK41_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3272 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK2
3273#endif
3274 use pm_kind, only: RKC => RK2
3275 procedure(real(RKC)) :: getFunc
3276 real(RKC) , intent(in) :: lb
3277 real(RKC) , intent(in) :: ub
3278 type(GK41_type) , intent(in) :: qrule
3279 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3280 real(RKC) :: quadGK
3281 end function
3282#endif
3283
3284#if RK1_ENABLED
3285 module function getQuadGK41_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3287 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK1
3288#endif
3289 use pm_kind, only: RKC => RK1
3290 procedure(real(RKC)) :: getFunc
3291 real(RKC) , intent(in) :: lb
3292 real(RKC) , intent(in) :: ub
3293 type(GK41_type) , intent(in) :: qrule
3294 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3295 real(RKC) :: quadGK
3296 end function
3297#endif
3298
3299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3300
3301#if RK5_ENABLED
3302 module function getQuadGK41_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3304 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK5
3305#endif
3306 use pm_kind, only: RKC => RK5
3307 procedure(real(RKC)) :: getFunc
3308 real(RKC) , intent(in) :: lb
3309 type(pinf_type) , intent(in) :: ub
3310 type(GK41_type) , intent(in) :: qrule
3311 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3312 real(RKC) :: quadGK
3313 end function
3314#endif
3315
3316#if RK4_ENABLED
3317 module function getQuadGK41_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3319 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK4
3320#endif
3321 use pm_kind, only: RKC => RK4
3322 procedure(real(RKC)) :: getFunc
3323 real(RKC) , intent(in) :: lb
3324 type(pinf_type) , intent(in) :: ub
3325 type(GK41_type) , intent(in) :: qrule
3326 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3327 real(RKC) :: quadGK
3328 end function
3329#endif
3330
3331#if RK3_ENABLED
3332 module function getQuadGK41_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3334 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK3
3335#endif
3336 use pm_kind, only: RKC => RK3
3337 procedure(real(RKC)) :: getFunc
3338 real(RKC) , intent(in) :: lb
3339 type(pinf_type) , intent(in) :: ub
3340 type(GK41_type) , intent(in) :: qrule
3341 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3342 real(RKC) :: quadGK
3343 end function
3344#endif
3345
3346#if RK2_ENABLED
3347 module function getQuadGK41_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3349 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK2
3350#endif
3351 use pm_kind, only: RKC => RK2
3352 procedure(real(RKC)) :: getFunc
3353 real(RKC) , intent(in) :: lb
3354 type(pinf_type) , intent(in) :: ub
3355 type(GK41_type) , intent(in) :: qrule
3356 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3357 real(RKC) :: quadGK
3358 end function
3359#endif
3360
3361#if RK1_ENABLED
3362 module function getQuadGK41_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3364 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK1
3365#endif
3366 use pm_kind, only: RKC => RK1
3367 procedure(real(RKC)) :: getFunc
3368 real(RKC) , intent(in) :: lb
3369 type(pinf_type) , intent(in) :: ub
3370 type(GK41_type) , intent(in) :: qrule
3371 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3372 real(RKC) :: quadGK
3373 end function
3374#endif
3375
3376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3377
3378#if RK5_ENABLED
3379 module function getQuadGK41_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3381 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK5
3382#endif
3383 use pm_kind, only: RKC => RK5
3384 procedure(real(RKC)) :: getFunc
3385 type(ninf_type) , intent(in) :: lb
3386 real(RKC) , intent(in) :: ub
3387 type(GK41_type) , intent(in) :: qrule
3388 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3389 real(RKC) :: quadGK
3390 end function
3391#endif
3392
3393#if RK4_ENABLED
3394 module function getQuadGK41_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3396 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK4
3397#endif
3398 use pm_kind, only: RKC => RK4
3399 procedure(real(RKC)) :: getFunc
3400 type(ninf_type) , intent(in) :: lb
3401 real(RKC) , intent(in) :: ub
3402 type(GK41_type) , intent(in) :: qrule
3403 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3404 real(RKC) :: quadGK
3405 end function
3406#endif
3407
3408#if RK3_ENABLED
3409 module function getQuadGK41_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3411 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK3
3412#endif
3413 use pm_kind, only: RKC => RK3
3414 procedure(real(RKC)) :: getFunc
3415 type(ninf_type) , intent(in) :: lb
3416 real(RKC) , intent(in) :: ub
3417 type(GK41_type) , intent(in) :: qrule
3418 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3419 real(RKC) :: quadGK
3420 end function
3421#endif
3422
3423#if RK2_ENABLED
3424 module function getQuadGK41_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3426 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK2
3427#endif
3428 use pm_kind, only: RKC => RK2
3429 procedure(real(RKC)) :: getFunc
3430 type(ninf_type) , intent(in) :: lb
3431 real(RKC) , intent(in) :: ub
3432 type(GK41_type) , intent(in) :: qrule
3433 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3434 real(RKC) :: quadGK
3435 end function
3436#endif
3437
3438#if RK1_ENABLED
3439 module function getQuadGK41_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3441 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK1
3442#endif
3443 use pm_kind, only: RKC => RK1
3444 procedure(real(RKC)) :: getFunc
3445 type(ninf_type) , intent(in) :: lb
3446 real(RKC) , intent(in) :: ub
3447 type(GK41_type) , intent(in) :: qrule
3448 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3449 real(RKC) :: quadGK
3450 end function
3451#endif
3452
3453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3454
3455#if RK5_ENABLED
3456 module function getQuadGK41_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3458 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK5
3459#endif
3460 use pm_kind, only: RKC => RK5
3461 procedure(real(RKC)) :: getFunc
3462 type(ninf_type) , intent(in) :: lb
3463 type(pinf_type) , intent(in) :: ub
3464 type(GK41_type) , intent(in) :: qrule
3465 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3466 real(RKC) :: quadGK
3467 end function
3468#endif
3469
3470#if RK4_ENABLED
3471 module function getQuadGK41_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3473 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK4
3474#endif
3475 use pm_kind, only: RKC => RK4
3476 procedure(real(RKC)) :: getFunc
3477 type(ninf_type) , intent(in) :: lb
3478 type(pinf_type) , intent(in) :: ub
3479 type(GK41_type) , intent(in) :: qrule
3480 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3481 real(RKC) :: quadGK
3482 end function
3483#endif
3484
3485#if RK3_ENABLED
3486 module function getQuadGK41_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3488 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK3
3489#endif
3490 use pm_kind, only: RKC => RK3
3491 procedure(real(RKC)) :: getFunc
3492 type(ninf_type) , intent(in) :: lb
3493 type(pinf_type) , intent(in) :: ub
3494 type(GK41_type) , intent(in) :: qrule
3495 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3496 real(RKC) :: quadGK
3497 end function
3498#endif
3499
3500#if RK2_ENABLED
3501 module function getQuadGK41_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3503 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK2
3504#endif
3505 use pm_kind, only: RKC => RK2
3506 procedure(real(RKC)) :: getFunc
3507 type(ninf_type) , intent(in) :: lb
3508 type(pinf_type) , intent(in) :: ub
3509 type(GK41_type) , intent(in) :: qrule
3510 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3511 real(RKC) :: quadGK
3512 end function
3513#endif
3514
3515#if RK1_ENABLED
3516 module function getQuadGK41_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3518 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK1
3519#endif
3520 use pm_kind, only: RKC => RK1
3521 procedure(real(RKC)) :: getFunc
3522 type(ninf_type) , intent(in) :: lb
3523 type(pinf_type) , intent(in) :: ub
3524 type(GK41_type) , intent(in) :: qrule
3525 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3526 real(RKC) :: quadGK
3527 end function
3528#endif
3529
3530 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3531
3532 end interface
3533
3534 ! GK51
3535
3536 interface getQuadGK
3537
3538 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3539
3540#if RK5_ENABLED
3541 module function getQuadGK51_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3543 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK5
3544#endif
3545 use pm_kind, only: RKC => RK5
3546 procedure(real(RKC)) :: getFunc
3547 real(RKC) , intent(in) :: lb
3548 real(RKC) , intent(in) :: ub
3549 type(GK51_type) , intent(in) :: qrule
3550 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3551 real(RKC) :: quadGK
3552 end function
3553#endif
3554
3555#if RK4_ENABLED
3556 module function getQuadGK51_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3558 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK4
3559#endif
3560 use pm_kind, only: RKC => RK4
3561 procedure(real(RKC)) :: getFunc
3562 real(RKC) , intent(in) :: lb
3563 real(RKC) , intent(in) :: ub
3564 type(GK51_type) , intent(in) :: qrule
3565 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3566 real(RKC) :: quadGK
3567 end function
3568#endif
3569
3570#if RK3_ENABLED
3571 module function getQuadGK51_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3573 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK3
3574#endif
3575 use pm_kind, only: RKC => RK3
3576 procedure(real(RKC)) :: getFunc
3577 real(RKC) , intent(in) :: lb
3578 real(RKC) , intent(in) :: ub
3579 type(GK51_type) , intent(in) :: qrule
3580 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3581 real(RKC) :: quadGK
3582 end function
3583#endif
3584
3585#if RK2_ENABLED
3586 module function getQuadGK51_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3588 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK2
3589#endif
3590 use pm_kind, only: RKC => RK2
3591 procedure(real(RKC)) :: getFunc
3592 real(RKC) , intent(in) :: lb
3593 real(RKC) , intent(in) :: ub
3594 type(GK51_type) , intent(in) :: qrule
3595 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3596 real(RKC) :: quadGK
3597 end function
3598#endif
3599
3600#if RK1_ENABLED
3601 module function getQuadGK51_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3603 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK1
3604#endif
3605 use pm_kind, only: RKC => RK1
3606 procedure(real(RKC)) :: getFunc
3607 real(RKC) , intent(in) :: lb
3608 real(RKC) , intent(in) :: ub
3609 type(GK51_type) , intent(in) :: qrule
3610 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3611 real(RKC) :: quadGK
3612 end function
3613#endif
3614
3615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3616
3617#if RK5_ENABLED
3618 module function getQuadGK51_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3620 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK5
3621#endif
3622 use pm_kind, only: RKC => RK5
3623 procedure(real(RKC)) :: getFunc
3624 real(RKC) , intent(in) :: lb
3625 type(pinf_type) , intent(in) :: ub
3626 type(GK51_type) , intent(in) :: qrule
3627 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3628 real(RKC) :: quadGK
3629 end function
3630#endif
3631
3632#if RK4_ENABLED
3633 module function getQuadGK51_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3635 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK4
3636#endif
3637 use pm_kind, only: RKC => RK4
3638 procedure(real(RKC)) :: getFunc
3639 real(RKC) , intent(in) :: lb
3640 type(pinf_type) , intent(in) :: ub
3641 type(GK51_type) , intent(in) :: qrule
3642 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3643 real(RKC) :: quadGK
3644 end function
3645#endif
3646
3647#if RK3_ENABLED
3648 module function getQuadGK51_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3650 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK3
3651#endif
3652 use pm_kind, only: RKC => RK3
3653 procedure(real(RKC)) :: getFunc
3654 real(RKC) , intent(in) :: lb
3655 type(pinf_type) , intent(in) :: ub
3656 type(GK51_type) , intent(in) :: qrule
3657 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3658 real(RKC) :: quadGK
3659 end function
3660#endif
3661
3662#if RK2_ENABLED
3663 module function getQuadGK51_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3665 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK2
3666#endif
3667 use pm_kind, only: RKC => RK2
3668 procedure(real(RKC)) :: getFunc
3669 real(RKC) , intent(in) :: lb
3670 type(pinf_type) , intent(in) :: ub
3671 type(GK51_type) , intent(in) :: qrule
3672 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3673 real(RKC) :: quadGK
3674 end function
3675#endif
3676
3677#if RK1_ENABLED
3678 module function getQuadGK51_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3680 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK1
3681#endif
3682 use pm_kind, only: RKC => RK1
3683 procedure(real(RKC)) :: getFunc
3684 real(RKC) , intent(in) :: lb
3685 type(pinf_type) , intent(in) :: ub
3686 type(GK51_type) , intent(in) :: qrule
3687 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3688 real(RKC) :: quadGK
3689 end function
3690#endif
3691
3692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3693
3694#if RK5_ENABLED
3695 module function getQuadGK51_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3697 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK5
3698#endif
3699 use pm_kind, only: RKC => RK5
3700 procedure(real(RKC)) :: getFunc
3701 type(ninf_type) , intent(in) :: lb
3702 real(RKC) , intent(in) :: ub
3703 type(GK51_type) , intent(in) :: qrule
3704 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3705 real(RKC) :: quadGK
3706 end function
3707#endif
3708
3709#if RK4_ENABLED
3710 module function getQuadGK51_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3712 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK4
3713#endif
3714 use pm_kind, only: RKC => RK4
3715 procedure(real(RKC)) :: getFunc
3716 type(ninf_type) , intent(in) :: lb
3717 real(RKC) , intent(in) :: ub
3718 type(GK51_type) , intent(in) :: qrule
3719 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3720 real(RKC) :: quadGK
3721 end function
3722#endif
3723
3724#if RK3_ENABLED
3725 module function getQuadGK51_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3727 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK3
3728#endif
3729 use pm_kind, only: RKC => RK3
3730 procedure(real(RKC)) :: getFunc
3731 type(ninf_type) , intent(in) :: lb
3732 real(RKC) , intent(in) :: ub
3733 type(GK51_type) , intent(in) :: qrule
3734 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3735 real(RKC) :: quadGK
3736 end function
3737#endif
3738
3739#if RK2_ENABLED
3740 module function getQuadGK51_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3742 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK2
3743#endif
3744 use pm_kind, only: RKC => RK2
3745 procedure(real(RKC)) :: getFunc
3746 type(ninf_type) , intent(in) :: lb
3747 real(RKC) , intent(in) :: ub
3748 type(GK51_type) , intent(in) :: qrule
3749 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3750 real(RKC) :: quadGK
3751 end function
3752#endif
3753
3754#if RK1_ENABLED
3755 module function getQuadGK51_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3757 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK1
3758#endif
3759 use pm_kind, only: RKC => RK1
3760 procedure(real(RKC)) :: getFunc
3761 type(ninf_type) , intent(in) :: lb
3762 real(RKC) , intent(in) :: ub
3763 type(GK51_type) , intent(in) :: qrule
3764 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3765 real(RKC) :: quadGK
3766 end function
3767#endif
3768
3769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3770
3771#if RK5_ENABLED
3772 module function getQuadGK51_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3774 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK5
3775#endif
3776 use pm_kind, only: RKC => RK5
3777 procedure(real(RKC)) :: getFunc
3778 type(ninf_type) , intent(in) :: lb
3779 type(pinf_type) , intent(in) :: ub
3780 type(GK51_type) , intent(in) :: qrule
3781 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3782 real(RKC) :: quadGK
3783 end function
3784#endif
3785
3786#if RK4_ENABLED
3787 module function getQuadGK51_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3789 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK4
3790#endif
3791 use pm_kind, only: RKC => RK4
3792 procedure(real(RKC)) :: getFunc
3793 type(ninf_type) , intent(in) :: lb
3794 type(pinf_type) , intent(in) :: ub
3795 type(GK51_type) , intent(in) :: qrule
3796 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3797 real(RKC) :: quadGK
3798 end function
3799#endif
3800
3801#if RK3_ENABLED
3802 module function getQuadGK51_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3804 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK3
3805#endif
3806 use pm_kind, only: RKC => RK3
3807 procedure(real(RKC)) :: getFunc
3808 type(ninf_type) , intent(in) :: lb
3809 type(pinf_type) , intent(in) :: ub
3810 type(GK51_type) , intent(in) :: qrule
3811 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3812 real(RKC) :: quadGK
3813 end function
3814#endif
3815
3816#if RK2_ENABLED
3817 module function getQuadGK51_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3819 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK2
3820#endif
3821 use pm_kind, only: RKC => RK2
3822 procedure(real(RKC)) :: getFunc
3823 type(ninf_type) , intent(in) :: lb
3824 type(pinf_type) , intent(in) :: ub
3825 type(GK51_type) , intent(in) :: qrule
3826 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3827 real(RKC) :: quadGK
3828 end function
3829#endif
3830
3831#if RK1_ENABLED
3832 module function getQuadGK51_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3834 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK1
3835#endif
3836 use pm_kind, only: RKC => RK1
3837 procedure(real(RKC)) :: getFunc
3838 type(ninf_type) , intent(in) :: lb
3839 type(pinf_type) , intent(in) :: ub
3840 type(GK51_type) , intent(in) :: qrule
3841 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3842 real(RKC) :: quadGK
3843 end function
3844#endif
3845
3846 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3847
3848 end interface
3849
3850 ! GK61
3851
3852 interface getQuadGK
3853
3854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3855
3856#if RK5_ENABLED
3857 module function getQuadGK61_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3859 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK5
3860#endif
3861 use pm_kind, only: RKC => RK5
3862 procedure(real(RKC)) :: getFunc
3863 real(RKC) , intent(in) :: lb
3864 real(RKC) , intent(in) :: ub
3865 type(GK61_type) , intent(in) :: qrule
3866 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3867 real(RKC) :: quadGK
3868 end function
3869#endif
3870
3871#if RK4_ENABLED
3872 module function getQuadGK61_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3874 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK4
3875#endif
3876 use pm_kind, only: RKC => RK4
3877 procedure(real(RKC)) :: getFunc
3878 real(RKC) , intent(in) :: lb
3879 real(RKC) , intent(in) :: ub
3880 type(GK61_type) , intent(in) :: qrule
3881 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3882 real(RKC) :: quadGK
3883 end function
3884#endif
3885
3886#if RK3_ENABLED
3887 module function getQuadGK61_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3889 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK3
3890#endif
3891 use pm_kind, only: RKC => RK3
3892 procedure(real(RKC)) :: getFunc
3893 real(RKC) , intent(in) :: lb
3894 real(RKC) , intent(in) :: ub
3895 type(GK61_type) , intent(in) :: qrule
3896 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3897 real(RKC) :: quadGK
3898 end function
3899#endif
3900
3901#if RK2_ENABLED
3902 module function getQuadGK61_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3904 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK2
3905#endif
3906 use pm_kind, only: RKC => RK2
3907 procedure(real(RKC)) :: getFunc
3908 real(RKC) , intent(in) :: lb
3909 real(RKC) , intent(in) :: ub
3910 type(GK61_type) , intent(in) :: qrule
3911 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3912 real(RKC) :: quadGK
3913 end function
3914#endif
3915
3916#if RK1_ENABLED
3917 module function getQuadGK61_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3919 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK1
3920#endif
3921 use pm_kind, only: RKC => RK1
3922 procedure(real(RKC)) :: getFunc
3923 real(RKC) , intent(in) :: lb
3924 real(RKC) , intent(in) :: ub
3925 type(GK61_type) , intent(in) :: qrule
3926 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3927 real(RKC) :: quadGK
3928 end function
3929#endif
3930
3931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3932
3933#if RK5_ENABLED
3934 module function getQuadGK61_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3936 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK5
3937#endif
3938 use pm_kind, only: RKC => RK5
3939 procedure(real(RKC)) :: getFunc
3940 real(RKC) , intent(in) :: lb
3941 type(pinf_type) , intent(in) :: ub
3942 type(GK61_type) , intent(in) :: qrule
3943 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3944 real(RKC) :: quadGK
3945 end function
3946#endif
3947
3948#if RK4_ENABLED
3949 module function getQuadGK61_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3951 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK4
3952#endif
3953 use pm_kind, only: RKC => RK4
3954 procedure(real(RKC)) :: getFunc
3955 real(RKC) , intent(in) :: lb
3956 type(pinf_type) , intent(in) :: ub
3957 type(GK61_type) , intent(in) :: qrule
3958 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3959 real(RKC) :: quadGK
3960 end function
3961#endif
3962
3963#if RK3_ENABLED
3964 module function getQuadGK61_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3966 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK3
3967#endif
3968 use pm_kind, only: RKC => RK3
3969 procedure(real(RKC)) :: getFunc
3970 real(RKC) , intent(in) :: lb
3971 type(pinf_type) , intent(in) :: ub
3972 type(GK61_type) , intent(in) :: qrule
3973 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3974 real(RKC) :: quadGK
3975 end function
3976#endif
3977
3978#if RK2_ENABLED
3979 module function getQuadGK61_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3981 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK2
3982#endif
3983 use pm_kind, only: RKC => RK2
3984 procedure(real(RKC)) :: getFunc
3985 real(RKC) , intent(in) :: lb
3986 type(pinf_type) , intent(in) :: ub
3987 type(GK61_type) , intent(in) :: qrule
3988 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3989 real(RKC) :: quadGK
3990 end function
3991#endif
3992
3993#if RK1_ENABLED
3994 module function getQuadGK61_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3996 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK1
3997#endif
3998 use pm_kind, only: RKC => RK1
3999 procedure(real(RKC)) :: getFunc
4000 real(RKC) , intent(in) :: lb
4001 type(pinf_type) , intent(in) :: ub
4002 type(GK61_type) , intent(in) :: qrule
4003 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4004 real(RKC) :: quadGK
4005 end function
4006#endif
4007
4008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4009
4010#if RK5_ENABLED
4011 module function getQuadGK61_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4013 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK5
4014#endif
4015 use pm_kind, only: RKC => RK5
4016 procedure(real(RKC)) :: getFunc
4017 type(ninf_type) , intent(in) :: lb
4018 real(RKC) , intent(in) :: ub
4019 type(GK61_type) , intent(in) :: qrule
4020 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4021 real(RKC) :: quadGK
4022 end function
4023#endif
4024
4025#if RK4_ENABLED
4026 module function getQuadGK61_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4028 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK4
4029#endif
4030 use pm_kind, only: RKC => RK4
4031 procedure(real(RKC)) :: getFunc
4032 type(ninf_type) , intent(in) :: lb
4033 real(RKC) , intent(in) :: ub
4034 type(GK61_type) , intent(in) :: qrule
4035 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4036 real(RKC) :: quadGK
4037 end function
4038#endif
4039
4040#if RK3_ENABLED
4041 module function getQuadGK61_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4043 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK3
4044#endif
4045 use pm_kind, only: RKC => RK3
4046 procedure(real(RKC)) :: getFunc
4047 type(ninf_type) , intent(in) :: lb
4048 real(RKC) , intent(in) :: ub
4049 type(GK61_type) , intent(in) :: qrule
4050 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4051 real(RKC) :: quadGK
4052 end function
4053#endif
4054
4055#if RK2_ENABLED
4056 module function getQuadGK61_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4058 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK2
4059#endif
4060 use pm_kind, only: RKC => RK2
4061 procedure(real(RKC)) :: getFunc
4062 type(ninf_type) , intent(in) :: lb
4063 real(RKC) , intent(in) :: ub
4064 type(GK61_type) , intent(in) :: qrule
4065 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4066 real(RKC) :: quadGK
4067 end function
4068#endif
4069
4070#if RK1_ENABLED
4071 module function getQuadGK61_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4073 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK1
4074#endif
4075 use pm_kind, only: RKC => RK1
4076 procedure(real(RKC)) :: getFunc
4077 type(ninf_type) , intent(in) :: lb
4078 real(RKC) , intent(in) :: ub
4079 type(GK61_type) , intent(in) :: qrule
4080 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4081 real(RKC) :: quadGK
4082 end function
4083#endif
4084
4085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4086
4087#if RK5_ENABLED
4088 module function getQuadGK61_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4090 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK5
4091#endif
4092 use pm_kind, only: RKC => RK5
4093 procedure(real(RKC)) :: getFunc
4094 type(ninf_type) , intent(in) :: lb
4095 type(pinf_type) , intent(in) :: ub
4096 type(GK61_type) , intent(in) :: qrule
4097 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4098 real(RKC) :: quadGK
4099 end function
4100#endif
4101
4102#if RK4_ENABLED
4103 module function getQuadGK61_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4105 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK4
4106#endif
4107 use pm_kind, only: RKC => RK4
4108 procedure(real(RKC)) :: getFunc
4109 type(ninf_type) , intent(in) :: lb
4110 type(pinf_type) , intent(in) :: ub
4111 type(GK61_type) , intent(in) :: qrule
4112 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4113 real(RKC) :: quadGK
4114 end function
4115#endif
4116
4117#if RK3_ENABLED
4118 module function getQuadGK61_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4120 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK3
4121#endif
4122 use pm_kind, only: RKC => RK3
4123 procedure(real(RKC)) :: getFunc
4124 type(ninf_type) , intent(in) :: lb
4125 type(pinf_type) , intent(in) :: ub
4126 type(GK61_type) , intent(in) :: qrule
4127 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4128 real(RKC) :: quadGK
4129 end function
4130#endif
4131
4132#if RK2_ENABLED
4133 module function getQuadGK61_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4135 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK2
4136#endif
4137 use pm_kind, only: RKC => RK2
4138 procedure(real(RKC)) :: getFunc
4139 type(ninf_type) , intent(in) :: lb
4140 type(pinf_type) , intent(in) :: ub
4141 type(GK61_type) , intent(in) :: qrule
4142 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4143 real(RKC) :: quadGK
4144 end function
4145#endif
4146
4147#if RK1_ENABLED
4148 module function getQuadGK61_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4150 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK1
4151#endif
4152 use pm_kind, only: RKC => RK1
4153 procedure(real(RKC)) :: getFunc
4154 type(ninf_type) , intent(in) :: lb
4155 type(pinf_type) , intent(in) :: ub
4156 type(GK61_type) , intent(in) :: qrule
4157 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4158 real(RKC) :: quadGK
4159 end function
4160#endif
4161
4162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4163
4164 end interface
4165
4166 ! GKXX
4167
4168 interface getQuadGK
4169
4170 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4171
4172#if RK5_ENABLED
4173 module function getQuadGKXX_FF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4175 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK5
4176#endif
4177 use pm_kind, only: RKC => RK5
4178 procedure(real(RKC)) :: getFunc
4179 real(RKC) , intent(in) :: lb
4180 real(RKC) , intent(in) :: ub
4181 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4182 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4183 real(RKC) :: quadGK
4184 end function
4185#endif
4186
4187#if RK4_ENABLED
4188 module function getQuadGKXX_FF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4190 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK4
4191#endif
4192 use pm_kind, only: RKC => RK4
4193 procedure(real(RKC)) :: getFunc
4194 real(RKC) , intent(in) :: lb
4195 real(RKC) , intent(in) :: ub
4196 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4197 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4198 real(RKC) :: quadGK
4199 end function
4200#endif
4201
4202#if RK3_ENABLED
4203 module function getQuadGKXX_FF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4205 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK3
4206#endif
4207 use pm_kind, only: RKC => RK3
4208 procedure(real(RKC)) :: getFunc
4209 real(RKC) , intent(in) :: lb
4210 real(RKC) , intent(in) :: ub
4211 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4212 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4213 real(RKC) :: quadGK
4214 end function
4215#endif
4216
4217#if RK2_ENABLED
4218 module function getQuadGKXX_FF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4220 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK2
4221#endif
4222 use pm_kind, only: RKC => RK2
4223 procedure(real(RKC)) :: getFunc
4224 real(RKC) , intent(in) :: lb
4225 real(RKC) , intent(in) :: ub
4226 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4227 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4228 real(RKC) :: quadGK
4229 end function
4230#endif
4231
4232#if RK1_ENABLED
4233 module function getQuadGKXX_FF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4235 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK1
4236#endif
4237 use pm_kind, only: RKC => RK1
4238 procedure(real(RKC)) :: getFunc
4239 real(RKC) , intent(in) :: lb
4240 real(RKC) , intent(in) :: ub
4241 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4242 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4243 real(RKC) :: quadGK
4244 end function
4245#endif
4246
4247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4248
4249#if RK5_ENABLED
4250 module function getQuadGKXX_FI_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4252 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK5
4253#endif
4254 use pm_kind, only: RKC => RK5
4255 procedure(real(RKC)) :: getFunc
4256 real(RKC) , intent(in) :: lb
4257 type(pinf_type) , intent(in) :: ub
4258 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4259 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4260 real(RKC) :: quadGK
4261 end function
4262#endif
4263
4264#if RK4_ENABLED
4265 module function getQuadGKXX_FI_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4267 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK4
4268#endif
4269 use pm_kind, only: RKC => RK4
4270 procedure(real(RKC)) :: getFunc
4271 real(RKC) , intent(in) :: lb
4272 type(pinf_type) , intent(in) :: ub
4273 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4274 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4275 real(RKC) :: quadGK
4276 end function
4277#endif
4278
4279#if RK3_ENABLED
4280 module function getQuadGKXX_FI_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4282 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK3
4283#endif
4284 use pm_kind, only: RKC => RK3
4285 procedure(real(RKC)) :: getFunc
4286 real(RKC) , intent(in) :: lb
4287 type(pinf_type) , intent(in) :: ub
4288 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4289 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4290 real(RKC) :: quadGK
4291 end function
4292#endif
4293
4294#if RK2_ENABLED
4295 module function getQuadGKXX_FI_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4297 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK2
4298#endif
4299 use pm_kind, only: RKC => RK2
4300 procedure(real(RKC)) :: getFunc
4301 real(RKC) , intent(in) :: lb
4302 type(pinf_type) , intent(in) :: ub
4303 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4304 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4305 real(RKC) :: quadGK
4306 end function
4307#endif
4308
4309#if RK1_ENABLED
4310 module function getQuadGKXX_FI_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4312 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK1
4313#endif
4314 use pm_kind, only: RKC => RK1
4315 procedure(real(RKC)) :: getFunc
4316 real(RKC) , intent(in) :: lb
4317 type(pinf_type) , intent(in) :: ub
4318 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4319 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4320 real(RKC) :: quadGK
4321 end function
4322#endif
4323
4324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4325
4326#if RK5_ENABLED
4327 module function getQuadGKXX_IF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4329 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK5
4330#endif
4331 use pm_kind, only: RKC => RK5
4332 procedure(real(RKC)) :: getFunc
4333 type(ninf_type) , intent(in) :: lb
4334 real(RKC) , intent(in) :: ub
4335 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4336 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4337 real(RKC) :: quadGK
4338 end function
4339#endif
4340
4341#if RK4_ENABLED
4342 module function getQuadGKXX_IF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4344 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK4
4345#endif
4346 use pm_kind, only: RKC => RK4
4347 procedure(real(RKC)) :: getFunc
4348 type(ninf_type) , intent(in) :: lb
4349 real(RKC) , intent(in) :: ub
4350 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4351 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4352 real(RKC) :: quadGK
4353 end function
4354#endif
4355
4356#if RK3_ENABLED
4357 module function getQuadGKXX_IF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4359 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK3
4360#endif
4361 use pm_kind, only: RKC => RK3
4362 procedure(real(RKC)) :: getFunc
4363 type(ninf_type) , intent(in) :: lb
4364 real(RKC) , intent(in) :: ub
4365 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4366 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4367 real(RKC) :: quadGK
4368 end function
4369#endif
4370
4371#if RK2_ENABLED
4372 module function getQuadGKXX_IF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4374 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK2
4375#endif
4376 use pm_kind, only: RKC => RK2
4377 procedure(real(RKC)) :: getFunc
4378 type(ninf_type) , intent(in) :: lb
4379 real(RKC) , intent(in) :: ub
4380 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4381 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4382 real(RKC) :: quadGK
4383 end function
4384#endif
4385
4386#if RK1_ENABLED
4387 module function getQuadGKXX_IF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4389 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK1
4390#endif
4391 use pm_kind, only: RKC => RK1
4392 procedure(real(RKC)) :: getFunc
4393 type(ninf_type) , intent(in) :: lb
4394 real(RKC) , intent(in) :: ub
4395 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4396 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4397 real(RKC) :: quadGK
4398 end function
4399#endif
4400
4401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4402
4403#if RK5_ENABLED
4404 module function getQuadGKXX_II_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4406 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK5
4407#endif
4408 use pm_kind, only: RKC => RK5
4409 procedure(real(RKC)) :: getFunc
4410 type(ninf_type) , intent(in) :: lb
4411 type(pinf_type) , intent(in) :: ub
4412 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4413 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4414 real(RKC) :: quadGK
4415 end function
4416#endif
4417
4418#if RK4_ENABLED
4419 module function getQuadGKXX_II_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4421 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK4
4422#endif
4423 use pm_kind, only: RKC => RK4
4424 procedure(real(RKC)) :: getFunc
4425 type(ninf_type) , intent(in) :: lb
4426 type(pinf_type) , intent(in) :: ub
4427 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4428 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4429 real(RKC) :: quadGK
4430 end function
4431#endif
4432
4433#if RK3_ENABLED
4434 module function getQuadGKXX_II_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4436 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK3
4437#endif
4438 use pm_kind, only: RKC => RK3
4439 procedure(real(RKC)) :: getFunc
4440 type(ninf_type) , intent(in) :: lb
4441 type(pinf_type) , intent(in) :: ub
4442 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4443 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4444 real(RKC) :: quadGK
4445 end function
4446#endif
4447
4448#if RK2_ENABLED
4449 module function getQuadGKXX_II_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4451 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK2
4452#endif
4453 use pm_kind, only: RKC => RK2
4454 procedure(real(RKC)) :: getFunc
4455 type(ninf_type) , intent(in) :: lb
4456 type(pinf_type) , intent(in) :: ub
4457 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4458 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4459 real(RKC) :: quadGK
4460 end function
4461#endif
4462
4463#if RK1_ENABLED
4464 module function getQuadGKXX_II_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4466 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK1
4467#endif
4468 use pm_kind, only: RKC => RK1
4469 procedure(real(RKC)) :: getFunc
4470 type(ninf_type) , intent(in) :: lb
4471 type(pinf_type) , intent(in) :: ub
4472 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4473 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4474 real(RKC) :: quadGK
4475 end function
4476#endif
4477
4478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4479
4480 end interface
4481
4482!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4483
4501 integer(IK) , parameter :: MAXLEN_EPSTAB = 50_IK
4502
4530 type :: weps_type
4531 end type
4532
4551 type(weps_type) , parameter :: weps = weps_type()
4552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4553 !DIR$ ATTRIBUTES DLLEXPORT :: weps
4554#endif
4555
4556!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4557
4599 interface setSeqLimEps
4600
4601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4602
4603#if RK5_ENABLED
4604 pure module subroutine setSeqLimEps_RK5(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4606 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK5
4607#endif
4608 use pm_kind, only: RKC => RK5
4609 integer(IK) , intent(inout) :: inew, ical
4610 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4611 real(RKC) , intent(out) :: seqlim, abserr
4612 end subroutine
4613#endif
4614
4615#if RK4_ENABLED
4616 pure module subroutine setSeqLimEps_RK4(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4618 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK4
4619#endif
4620 use pm_kind, only: RKC => RK4
4621 integer(IK) , intent(inout) :: inew, ical
4622 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4623 real(RKC) , intent(out) :: seqlim, abserr
4624 end subroutine
4625#endif
4626
4627#if RK3_ENABLED
4628 pure module subroutine setSeqLimEps_RK3(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4630 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK3
4631#endif
4632 use pm_kind, only: RKC => RK3
4633 integer(IK) , intent(inout) :: inew, ical
4634 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4635 real(RKC) , intent(out) :: seqlim, abserr
4636 end subroutine
4637#endif
4638
4639#if RK2_ENABLED
4640 pure module subroutine setSeqLimEps_RK2(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4642 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK2
4643#endif
4644 use pm_kind, only: RKC => RK2
4645 integer(IK) , intent(inout) :: inew, ical
4646 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4647 real(RKC) , intent(out) :: seqlim, abserr
4648 end subroutine
4649#endif
4650
4651#if RK1_ENABLED
4652 pure module subroutine setSeqLimEps_RK1(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4654 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK1
4655#endif
4656 use pm_kind, only: RKC => RK1
4657 integer(IK) , intent(inout) :: inew, ical
4658 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4659 real(RKC) , intent(out) :: seqlim, abserr
4660 end subroutine
4661#endif
4662
4663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4664
4665 end interface
4666
4667!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4668
4712 interface setErrSorted
4713
4714 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4715
4716#if RK5_ENABLED
4717 PURE module subroutine setErrSorted_RK5(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4719 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK5
4720#endif
4721 use pm_kind, only: RKC => RK5
4722 integer(IK) , intent(in) :: nintmax
4723 real(RKC) , intent(in) :: sinfoErr(:)
4724 integer(IK) , intent(inout) , contiguous :: sindex(:)
4725 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4726 real(RKC) , intent(out) :: maxErrVal
4727 end subroutine
4728#endif
4729
4730#if RK4_ENABLED
4731 PURE module subroutine setErrSorted_RK4(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4733 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK4
4734#endif
4735 use pm_kind, only: RKC => RK4
4736 integer(IK) , intent(in) :: nintmax
4737 real(RKC) , intent(in) :: sinfoErr(:)
4738 integer(IK) , intent(inout) , contiguous :: sindex(:)
4739 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4740 real(RKC) , intent(out) :: maxErrVal
4741 end subroutine
4742#endif
4743
4744#if RK3_ENABLED
4745 PURE module subroutine setErrSorted_RK3(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4747 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK3
4748#endif
4749 use pm_kind, only: RKC => RK3
4750 integer(IK) , intent(in) :: nintmax
4751 real(RKC) , intent(in) :: sinfoErr(:)
4752 integer(IK) , intent(inout) , contiguous :: sindex(:)
4753 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4754 real(RKC) , intent(out) :: maxErrVal
4755 end subroutine
4756#endif
4757
4758#if RK2_ENABLED
4759 PURE module subroutine setErrSorted_RK2(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4761 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK2
4762#endif
4763 use pm_kind, only: RKC => RK2
4764 integer(IK) , intent(in) :: nintmax
4765 real(RKC) , intent(in) :: sinfoErr(:)
4766 integer(IK) , intent(inout) , contiguous :: sindex(:)
4767 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4768 real(RKC) , intent(out) :: maxErrVal
4769 end subroutine
4770#endif
4771
4772#if RK1_ENABLED
4773 PURE module subroutine setErrSorted_RK1(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4775 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK1
4776#endif
4777 use pm_kind, only: RKC => RK1
4778 integer(IK) , intent(in) :: nintmax
4779 real(RKC) , intent(in) :: sinfoErr(:)
4780 integer(IK) , intent(inout) , contiguous :: sindex(:)
4781 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4782 real(RKC) , intent(out) :: maxErrVal
4783 end subroutine
4784#endif
4785
4786 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4787
4788 end interface
4789
4790!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4791
4838 interface setChebExpan
4839
4840 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4841
4842#if RK5_ENABLED
4843 pure module subroutine setChebExpan_RK5(func, cheb12, cheb24)
4844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4845 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK5
4846#endif
4847 use pm_kind, only: RKC => RK5
4848 real(RKC) , intent(inout) :: func(25)
4849 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4850 end subroutine
4851#endif
4852
4853#if RK4_ENABLED
4854 pure module subroutine setChebExpan_RK4(func, cheb12, cheb24)
4855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4856 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK4
4857#endif
4858 use pm_kind, only: RKC => RK4
4859 real(RKC) , intent(inout) :: func(25)
4860 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4861 end subroutine
4862#endif
4863
4864#if RK3_ENABLED
4865 pure module subroutine setChebExpan_RK3(func, cheb12, cheb24)
4866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4867 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK3
4868#endif
4869 use pm_kind, only: RKC => RK3
4870 real(RKC) , intent(inout) :: func(25)
4871 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4872 end subroutine
4873#endif
4874
4875#if RK2_ENABLED
4876 pure module subroutine setChebExpan_RK2(func, cheb12, cheb24)
4877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4878 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK2
4879#endif
4880 use pm_kind, only: RKC => RK2
4881 real(RKC) , intent(inout) :: func(25)
4882 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4883 end subroutine
4884#endif
4885
4886#if RK1_ENABLED
4887 pure module subroutine setChebExpan_RK1(func, cheb12, cheb24)
4888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4889 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK1
4890#endif
4891 use pm_kind, only: RKC => RK1
4892 real(RKC) , intent(inout) :: func(25)
4893 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4894 end subroutine
4895#endif
4896
4897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4898
4899 end interface
4900
4901!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4902
4989 interface isFailedQuad
4990
4991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4992
4993#if RK5_ENABLED
4994 module function isFailedQuadQAGD_RK5(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4996 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK5
4997#endif
4998 use pm_kind, only: RKC => RK5
4999 procedure(real(RKC)) :: getFunc
5000 real(RKC) , intent(in) :: lb, ub
5001 real(RKC) , intent(out) :: integral
5002 real(RKC) , intent(out) , optional :: abserr
5003 real(RKC) , intent(in) , optional :: abstol
5004 real(RKC) , intent(in) , optional :: reltol
5005 integer(IK) , intent(out) , optional :: neval
5006 integer(IK) , intent(out) , optional :: nint
5007 character(*, SK) , intent(out) , optional :: msg
5008 logical(LK) :: failed
5009 end function
5010#endif
5011
5012#if RK4_ENABLED
5013 module function isFailedQuadQAGD_RK4(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5015 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK4
5016#endif
5017 use pm_kind, only: RKC => RK4
5018 procedure(real(RKC)) :: getFunc
5019 real(RKC) , intent(in) :: lb, ub
5020 real(RKC) , intent(out) :: integral
5021 real(RKC) , intent(out) , optional :: abserr
5022 real(RKC) , intent(in) , optional :: abstol
5023 real(RKC) , intent(in) , optional :: reltol
5024 integer(IK) , intent(out) , optional :: neval
5025 integer(IK) , intent(out) , optional :: nint
5026 character(*, SK) , intent(out) , optional :: msg
5027 logical(LK) :: failed
5028 end function
5029#endif
5030
5031#if RK3_ENABLED
5032 module function isFailedQuadQAGD_RK3(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5034 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK3
5035#endif
5036 use pm_kind, only: RKC => RK3
5037 procedure(real(RKC)) :: getFunc
5038 real(RKC) , intent(in) :: lb, ub
5039 real(RKC) , intent(out) :: integral
5040 real(RKC) , intent(out) , optional :: abserr
5041 real(RKC) , intent(in) , optional :: abstol
5042 real(RKC) , intent(in) , optional :: reltol
5043 integer(IK) , intent(out) , optional :: neval
5044 integer(IK) , intent(out) , optional :: nint
5045 character(*, SK) , intent(out) , optional :: msg
5046 logical(LK) :: failed
5047 end function
5048#endif
5049
5050#if RK2_ENABLED
5051 module function isFailedQuadQAGD_RK2(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5053 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK2
5054#endif
5055 use pm_kind, only: RKC => RK2
5056 procedure(real(RKC)) :: getFunc
5057 real(RKC) , intent(in) :: lb, ub
5058 real(RKC) , intent(out) :: integral
5059 real(RKC) , intent(out) , optional :: abserr
5060 real(RKC) , intent(in) , optional :: abstol
5061 real(RKC) , intent(in) , optional :: reltol
5062 integer(IK) , intent(out) , optional :: neval
5063 integer(IK) , intent(out) , optional :: nint
5064 character(*, SK) , intent(out) , optional :: msg
5065 logical(LK) :: failed
5066 end function
5067#endif
5068
5069#if RK1_ENABLED
5070 module function isFailedQuadQAGD_RK1(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5072 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK1
5073#endif
5074 use pm_kind, only: RKC => RK1
5075 procedure(real(RKC)) :: getFunc
5076 real(RKC) , intent(in) :: lb, ub
5077 real(RKC) , intent(out) :: integral
5078 real(RKC) , intent(out) , optional :: abserr
5079 real(RKC) , intent(in) , optional :: abstol
5080 real(RKC) , intent(in) , optional :: reltol
5081 integer(IK) , intent(out) , optional :: neval
5082 integer(IK) , intent(out) , optional :: nint
5083 character(*, SK) , intent(out) , optional :: msg
5084 logical(LK) :: failed
5085 end function
5086#endif
5087
5088 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5089
5090#if RK5_ENABLED
5091 module function isFailedQuadQAGS_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5093 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK5
5094#endif
5095 use pm_kind, only: RKC => RK5
5096 procedure(real(RKC)) :: getFunc
5097 real(RKC) , intent(in) :: lb, ub
5098 real(RKC) , intent(out) :: integral
5099 type(weps_type) , intent(in) :: help
5100 real(RKC) , intent(out) , optional :: abserr
5101 real(RKC) , intent(in) , optional :: abstol
5102 real(RKC) , intent(in) , optional :: reltol
5103 integer(IK) , intent(out) , optional :: neval
5104 integer(IK) , intent(out) , optional :: nint
5105 character(*, SK) , intent(out) , optional :: msg
5106 logical(LK) :: failed
5107 end function
5108#endif
5109
5110#if RK4_ENABLED
5111 module function isFailedQuadQAGS_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5113 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK4
5114#endif
5115 use pm_kind, only: RKC => RK4
5116 procedure(real(RKC)) :: getFunc
5117 real(RKC) , intent(in) :: lb, ub
5118 real(RKC) , intent(out) :: integral
5119 type(weps_type) , intent(in) :: help
5120 real(RKC) , intent(out) , optional :: abserr
5121 real(RKC) , intent(in) , optional :: abstol
5122 real(RKC) , intent(in) , optional :: reltol
5123 integer(IK) , intent(out) , optional :: neval
5124 integer(IK) , intent(out) , optional :: nint
5125 character(*, SK) , intent(out) , optional :: msg
5126 logical(LK) :: failed
5127 end function
5128#endif
5129
5130#if RK3_ENABLED
5131 module function isFailedQuadQAGS_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5133 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK3
5134#endif
5135 use pm_kind, only: RKC => RK3
5136 procedure(real(RKC)) :: getFunc
5137 real(RKC) , intent(in) :: lb, ub
5138 real(RKC) , intent(out) :: integral
5139 type(weps_type) , intent(in) :: help
5140 real(RKC) , intent(out) , optional :: abserr
5141 real(RKC) , intent(in) , optional :: abstol
5142 real(RKC) , intent(in) , optional :: reltol
5143 integer(IK) , intent(out) , optional :: neval
5144 integer(IK) , intent(out) , optional :: nint
5145 character(*, SK) , intent(out) , optional :: msg
5146 logical(LK) :: failed
5147 end function
5148#endif
5149
5150#if RK2_ENABLED
5151 module function isFailedQuadQAGS_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5153 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK2
5154#endif
5155 use pm_kind, only: RKC => RK2
5156 procedure(real(RKC)) :: getFunc
5157 real(RKC) , intent(in) :: lb, ub
5158 real(RKC) , intent(out) :: integral
5159 type(weps_type) , intent(in) :: help
5160 real(RKC) , intent(out) , optional :: abserr
5161 real(RKC) , intent(in) , optional :: abstol
5162 real(RKC) , intent(in) , optional :: reltol
5163 integer(IK) , intent(out) , optional :: neval
5164 integer(IK) , intent(out) , optional :: nint
5165 character(*, SK) , intent(out) , optional :: msg
5166 logical(LK) :: failed
5167 end function
5168#endif
5169
5170#if RK1_ENABLED
5171 module function isFailedQuadQAGS_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5173 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK1
5174#endif
5175 use pm_kind, only: RKC => RK1
5176 procedure(real(RKC)) :: getFunc
5177 real(RKC) , intent(in) :: lb, ub
5178 real(RKC) , intent(out) :: integral
5179 type(weps_type) , intent(in) :: help
5180 real(RKC) , intent(out) , optional :: abserr
5181 real(RKC) , intent(in) , optional :: abstol
5182 real(RKC) , intent(in) , optional :: reltol
5183 integer(IK) , intent(out) , optional :: neval
5184 integer(IK) , intent(out) , optional :: nint
5185 character(*, SK) , intent(out) , optional :: msg
5186 logical(LK) :: failed
5187 end function
5188#endif
5189
5190 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5191
5192#if RK5_ENABLED
5193 module function isFailedQuadQAGP_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5195 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK5
5196#endif
5197 use pm_kind, only: RKC => RK5
5198 procedure(real(RKC)) :: getFunc
5199 real(RKC) , intent(in) :: lb, ub
5200 real(RKC) , intent(out) :: integral
5201 real(RKC) , intent(in) , contiguous :: help(:)
5202 real(RKC) , intent(out) , optional :: abserr
5203 real(RKC) , intent(in) , optional :: abstol
5204 real(RKC) , intent(in) , optional :: reltol
5205 integer(IK) , intent(out) , optional :: neval
5206 integer(IK) , intent(out) , optional :: nint
5207 character(*, SK) , intent(out) , optional :: msg
5208 logical(LK) :: failed
5209 end function
5210#endif
5211
5212#if RK4_ENABLED
5213 module function isFailedQuadQAGP_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5215 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK4
5216#endif
5217 use pm_kind, only: RKC => RK4
5218 procedure(real(RKC)) :: getFunc
5219 real(RKC) , intent(in) :: lb, ub
5220 real(RKC) , intent(out) :: integral
5221 real(RKC) , intent(in) , contiguous :: help(:)
5222 real(RKC) , intent(out) , optional :: abserr
5223 real(RKC) , intent(in) , optional :: abstol
5224 real(RKC) , intent(in) , optional :: reltol
5225 integer(IK) , intent(out) , optional :: neval
5226 integer(IK) , intent(out) , optional :: nint
5227 character(*, SK) , intent(out) , optional :: msg
5228 logical(LK) :: failed
5229 end function
5230#endif
5231
5232#if RK3_ENABLED
5233 module function isFailedQuadQAGP_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5235 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK3
5236#endif
5237 use pm_kind, only: RKC => RK3
5238 procedure(real(RKC)) :: getFunc
5239 real(RKC) , intent(in) :: lb, ub
5240 real(RKC) , intent(out) :: integral
5241 real(RKC) , intent(in) , contiguous :: help(:)
5242 real(RKC) , intent(out) , optional :: abserr
5243 real(RKC) , intent(in) , optional :: abstol
5244 real(RKC) , intent(in) , optional :: reltol
5245 integer(IK) , intent(out) , optional :: neval
5246 integer(IK) , intent(out) , optional :: nint
5247 character(*, SK) , intent(out) , optional :: msg
5248 logical(LK) :: failed
5249 end function
5250#endif
5251
5252#if RK2_ENABLED
5253 module function isFailedQuadQAGP_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5255 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK2
5256#endif
5257 use pm_kind, only: RKC => RK2
5258 procedure(real(RKC)) :: getFunc
5259 real(RKC) , intent(in) :: lb, ub
5260 real(RKC) , intent(out) :: integral
5261 real(RKC) , intent(in) , contiguous :: help(:)
5262 real(RKC) , intent(out) , optional :: abserr
5263 real(RKC) , intent(in) , optional :: abstol
5264 real(RKC) , intent(in) , optional :: reltol
5265 integer(IK) , intent(out) , optional :: neval
5266 integer(IK) , intent(out) , optional :: nint
5267 character(*, SK) , intent(out) , optional :: msg
5268 logical(LK) :: failed
5269 end function
5270#endif
5271
5272#if RK1_ENABLED
5273 module function isFailedQuadQAGP_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5275 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK1
5276#endif
5277 use pm_kind, only: RKC => RK1
5278 procedure(real(RKC)) :: getFunc
5279 real(RKC) , intent(in) :: lb, ub
5280 real(RKC) , intent(out) :: integral
5281 real(RKC) , intent(in) , contiguous :: help(:)
5282 real(RKC) , intent(out) , optional :: abserr
5283 real(RKC) , intent(in) , optional :: abstol
5284 real(RKC) , intent(in) , optional :: reltol
5285 integer(IK) , intent(out) , optional :: neval
5286 integer(IK) , intent(out) , optional :: nint
5287 character(*, SK) , intent(out) , optional :: msg
5288 logical(LK) :: failed
5289 end function
5290#endif
5291
5292 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5293
5294#if RK5_ENABLED
5295 module function isFailedQuadQAWC_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5297 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK5
5298#endif
5299 use pm_kind, only: RKC => RK5
5300 procedure(real(RKC)) :: getFunc
5301 real(RKC) , intent(in) :: lb, ub
5302 real(RKC) , intent(out) :: integral
5303 type(wcauchy_type) , intent(in) :: help
5304 real(RKC) , intent(out) , optional :: abserr
5305 real(RKC) , intent(in) , optional :: abstol
5306 real(RKC) , intent(in) , optional :: reltol
5307 integer(IK) , intent(out) , optional :: neval
5308 integer(IK) , intent(out) , optional :: nint
5309 character(*, SK) , intent(out) , optional :: msg
5310 logical(LK) :: failed
5311 end function
5312#endif
5313
5314#if RK4_ENABLED
5315 module function isFailedQuadQAWC_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5317 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK4
5318#endif
5319 use pm_kind, only: RKC => RK4
5320 procedure(real(RKC)) :: getFunc
5321 real(RKC) , intent(in) :: lb, ub
5322 real(RKC) , intent(out) :: integral
5323 type(wcauchy_type) , intent(in) :: help
5324 real(RKC) , intent(out) , optional :: abserr
5325 real(RKC) , intent(in) , optional :: abstol
5326 real(RKC) , intent(in) , optional :: reltol
5327 integer(IK) , intent(out) , optional :: neval
5328 integer(IK) , intent(out) , optional :: nint
5329 character(*, SK) , intent(out) , optional :: msg
5330 logical(LK) :: failed
5331 end function
5332#endif
5333
5334#if RK3_ENABLED
5335 module function isFailedQuadQAWC_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5337 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK3
5338#endif
5339 use pm_kind, only: RKC => RK3
5340 procedure(real(RKC)) :: getFunc
5341 real(RKC) , intent(in) :: lb, ub
5342 real(RKC) , intent(out) :: integral
5343 type(wcauchy_type) , intent(in) :: help
5344 real(RKC) , intent(out) , optional :: abserr
5345 real(RKC) , intent(in) , optional :: abstol
5346 real(RKC) , intent(in) , optional :: reltol
5347 integer(IK) , intent(out) , optional :: neval
5348 integer(IK) , intent(out) , optional :: nint
5349 character(*, SK) , intent(out) , optional :: msg
5350 logical(LK) :: failed
5351 end function
5352#endif
5353
5354#if RK2_ENABLED
5355 module function isFailedQuadQAWC_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5357 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK2
5358#endif
5359 use pm_kind, only: RKC => RK2
5360 procedure(real(RKC)) :: getFunc
5361 real(RKC) , intent(in) :: lb, ub
5362 real(RKC) , intent(out) :: integral
5363 type(wcauchy_type) , intent(in) :: help
5364 real(RKC) , intent(out) , optional :: abserr
5365 real(RKC) , intent(in) , optional :: abstol
5366 real(RKC) , intent(in) , optional :: reltol
5367 integer(IK) , intent(out) , optional :: neval
5368 integer(IK) , intent(out) , optional :: nint
5369 character(*, SK) , intent(out) , optional :: msg
5370 logical(LK) :: failed
5371 end function
5372#endif
5373
5374#if RK1_ENABLED
5375 module function isFailedQuadQAWC_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5377 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK1
5378#endif
5379 use pm_kind, only: RKC => RK1
5380 procedure(real(RKC)) :: getFunc
5381 real(RKC) , intent(in) :: lb, ub
5382 real(RKC) , intent(out) :: integral
5383 type(wcauchy_type) , intent(in) :: help
5384 real(RKC) , intent(out) , optional :: abserr
5385 real(RKC) , intent(in) , optional :: abstol
5386 real(RKC) , intent(in) , optional :: reltol
5387 integer(IK) , intent(out) , optional :: neval
5388 integer(IK) , intent(out) , optional :: nint
5389 character(*, SK) , intent(out) , optional :: msg
5390 logical(LK) :: failed
5391 end function
5392#endif
5393
5394 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5395
5396 end interface
5397
5398!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5399
5636
5637!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5638
5639 ! QAGD_GK15
5640
5641 interface getQuadErr
5642
5643 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5644
5645#if RK5_ENABLED
5646 module function QAGD_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5648 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK5
5649#endif
5650 use pm_kind, only: RKC => RK5
5651 procedure(real(RKC)) :: getFunc
5652 real(RKC) , intent(in) :: lb
5653 real(RKC) , intent(in) :: ub
5654 real(RKC) , intent(in) :: abstol
5655 real(RKC) , intent(in) :: reltol
5656 type(GK15_type) , intent(in) :: qrule
5657 real(RKC) , intent(out) :: integral, abserr
5658 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5659 integer(IK) , intent(out) , contiguous :: sindex(:)
5660 integer(IK) , intent(out) :: neval
5661 integer(IK) , intent(out) :: nint
5662 integer(IK) :: err
5663 end function
5664#endif
5665
5666#if RK4_ENABLED
5667 module function QAGD_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5669 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK4
5670#endif
5671 use pm_kind, only: RKC => RK4
5672 procedure(real(RKC)) :: getFunc
5673 real(RKC) , intent(in) :: lb
5674 real(RKC) , intent(in) :: ub
5675 real(RKC) , intent(in) :: abstol
5676 real(RKC) , intent(in) :: reltol
5677 type(GK15_type) , intent(in) :: qrule
5678 real(RKC) , intent(out) :: integral, abserr
5679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5680 integer(IK) , intent(out) , contiguous :: sindex(:)
5681 integer(IK) , intent(out) :: neval
5682 integer(IK) , intent(out) :: nint
5683 integer(IK) :: err
5684 end function
5685#endif
5686
5687#if RK3_ENABLED
5688 module function QAGD_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5690 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK3
5691#endif
5692 use pm_kind, only: RKC => RK3
5693 procedure(real(RKC)) :: getFunc
5694 real(RKC) , intent(in) :: lb
5695 real(RKC) , intent(in) :: ub
5696 real(RKC) , intent(in) :: abstol
5697 real(RKC) , intent(in) :: reltol
5698 type(GK15_type) , intent(in) :: qrule
5699 real(RKC) , intent(out) :: integral, abserr
5700 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5701 integer(IK) , intent(out) , contiguous :: sindex(:)
5702 integer(IK) , intent(out) :: neval
5703 integer(IK) , intent(out) :: nint
5704 integer(IK) :: err
5705 end function
5706#endif
5707
5708#if RK2_ENABLED
5709 module function QAGD_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5711 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK2
5712#endif
5713 use pm_kind, only: RKC => RK2
5714 procedure(real(RKC)) :: getFunc
5715 real(RKC) , intent(in) :: lb
5716 real(RKC) , intent(in) :: ub
5717 real(RKC) , intent(in) :: abstol
5718 real(RKC) , intent(in) :: reltol
5719 type(GK15_type) , intent(in) :: qrule
5720 real(RKC) , intent(out) :: integral, abserr
5721 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5722 integer(IK) , intent(out) , contiguous :: sindex(:)
5723 integer(IK) , intent(out) :: neval
5724 integer(IK) , intent(out) :: nint
5725 integer(IK) :: err
5726 end function
5727#endif
5728
5729#if RK1_ENABLED
5730 module function QAGD_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5732 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK1
5733#endif
5734 use pm_kind, only: RKC => RK1
5735 procedure(real(RKC)) :: getFunc
5736 real(RKC) , intent(in) :: lb
5737 real(RKC) , intent(in) :: ub
5738 real(RKC) , intent(in) :: abstol
5739 real(RKC) , intent(in) :: reltol
5740 type(GK15_type) , intent(in) :: qrule
5741 real(RKC) , intent(out) :: integral, abserr
5742 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5743 integer(IK) , intent(out) , contiguous :: sindex(:)
5744 integer(IK) , intent(out) :: neval
5745 integer(IK) , intent(out) :: nint
5746 integer(IK) :: err
5747 end function
5748#endif
5749
5750 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5751
5752#if RK5_ENABLED
5753 module function QAGD_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5755 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK5
5756#endif
5757 use pm_kind, only: RKC => RK5
5758 procedure(real(RKC)) :: getFunc
5759 real(RKC) , intent(in) :: lb
5760 type(pinf_type) , intent(in) :: ub
5761 real(RKC) , intent(in) :: abstol
5762 real(RKC) , intent(in) :: reltol
5763 type(GK15_type) , intent(in) :: qrule
5764 real(RKC) , intent(out) :: integral, abserr
5765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5766 integer(IK) , intent(out) , contiguous :: sindex(:)
5767 integer(IK) , intent(out) :: neval
5768 integer(IK) , intent(out) :: nint
5769 integer(IK) :: err
5770 end function
5771#endif
5772
5773#if RK4_ENABLED
5774 module function QAGD_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5776 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK4
5777#endif
5778 use pm_kind, only: RKC => RK4
5779 procedure(real(RKC)) :: getFunc
5780 real(RKC) , intent(in) :: lb
5781 type(pinf_type) , intent(in) :: ub
5782 real(RKC) , intent(in) :: abstol
5783 real(RKC) , intent(in) :: reltol
5784 type(GK15_type) , intent(in) :: qrule
5785 real(RKC) , intent(out) :: integral, abserr
5786 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5787 integer(IK) , intent(out) , contiguous :: sindex(:)
5788 integer(IK) , intent(out) :: neval
5789 integer(IK) , intent(out) :: nint
5790 integer(IK) :: err
5791 end function
5792#endif
5793
5794#if RK3_ENABLED
5795 module function QAGD_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5797 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK3
5798#endif
5799 use pm_kind, only: RKC => RK3
5800 procedure(real(RKC)) :: getFunc
5801 real(RKC) , intent(in) :: lb
5802 type(pinf_type) , intent(in) :: ub
5803 real(RKC) , intent(in) :: abstol
5804 real(RKC) , intent(in) :: reltol
5805 type(GK15_type) , intent(in) :: qrule
5806 real(RKC) , intent(out) :: integral, abserr
5807 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5808 integer(IK) , intent(out) , contiguous :: sindex(:)
5809 integer(IK) , intent(out) :: neval
5810 integer(IK) , intent(out) :: nint
5811 integer(IK) :: err
5812 end function
5813#endif
5814
5815#if RK2_ENABLED
5816 module function QAGD_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5818 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK2
5819#endif
5820 use pm_kind, only: RKC => RK2
5821 procedure(real(RKC)) :: getFunc
5822 real(RKC) , intent(in) :: lb
5823 type(pinf_type) , intent(in) :: ub
5824 real(RKC) , intent(in) :: abstol
5825 real(RKC) , intent(in) :: reltol
5826 type(GK15_type) , intent(in) :: qrule
5827 real(RKC) , intent(out) :: integral, abserr
5828 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5829 integer(IK) , intent(out) , contiguous :: sindex(:)
5830 integer(IK) , intent(out) :: neval
5831 integer(IK) , intent(out) :: nint
5832 integer(IK) :: err
5833 end function
5834#endif
5835
5836#if RK1_ENABLED
5837 module function QAGD_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5839 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK1
5840#endif
5841 use pm_kind, only: RKC => RK1
5842 procedure(real(RKC)) :: getFunc
5843 real(RKC) , intent(in) :: lb
5844 type(pinf_type) , intent(in) :: ub
5845 real(RKC) , intent(in) :: abstol
5846 real(RKC) , intent(in) :: reltol
5847 type(GK15_type) , intent(in) :: qrule
5848 real(RKC) , intent(out) :: integral, abserr
5849 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5850 integer(IK) , intent(out) , contiguous :: sindex(:)
5851 integer(IK) , intent(out) :: neval
5852 integer(IK) , intent(out) :: nint
5853 integer(IK) :: err
5854 end function
5855#endif
5856
5857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5858
5859#if RK5_ENABLED
5860 module function QAGD_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5862 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK5
5863#endif
5864 use pm_kind, only: RKC => RK5
5865 procedure(real(RKC)) :: getFunc
5866 type(ninf_type) , intent(in) :: lb
5867 real(RKC) , intent(in) :: ub
5868 real(RKC) , intent(in) :: abstol
5869 real(RKC) , intent(in) :: reltol
5870 type(GK15_type) , intent(in) :: qrule
5871 real(RKC) , intent(out) :: integral, abserr
5872 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5873 integer(IK) , intent(out) , contiguous :: sindex(:)
5874 integer(IK) , intent(out) :: neval
5875 integer(IK) , intent(out) :: nint
5876 integer(IK) :: err
5877 end function
5878#endif
5879
5880#if RK4_ENABLED
5881 module function QAGD_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5883 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK4
5884#endif
5885 use pm_kind, only: RKC => RK4
5886 procedure(real(RKC)) :: getFunc
5887 type(ninf_type) , intent(in) :: lb
5888 real(RKC) , intent(in) :: ub
5889 real(RKC) , intent(in) :: abstol
5890 real(RKC) , intent(in) :: reltol
5891 type(GK15_type) , intent(in) :: qrule
5892 real(RKC) , intent(out) :: integral, abserr
5893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5894 integer(IK) , intent(out) , contiguous :: sindex(:)
5895 integer(IK) , intent(out) :: neval
5896 integer(IK) , intent(out) :: nint
5897 integer(IK) :: err
5898 end function
5899#endif
5900
5901#if RK3_ENABLED
5902 module function QAGD_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK3
5905#endif
5906 use pm_kind, only: RKC => RK3
5907 procedure(real(RKC)) :: getFunc
5908 type(ninf_type) , intent(in) :: lb
5909 real(RKC) , intent(in) :: ub
5910 real(RKC) , intent(in) :: abstol
5911 real(RKC) , intent(in) :: reltol
5912 type(GK15_type) , intent(in) :: qrule
5913 real(RKC) , intent(out) :: integral, abserr
5914 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5915 integer(IK) , intent(out) , contiguous :: sindex(:)
5916 integer(IK) , intent(out) :: neval
5917 integer(IK) , intent(out) :: nint
5918 integer(IK) :: err
5919 end function
5920#endif
5921
5922#if RK2_ENABLED
5923 module function QAGD_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5925 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK2
5926#endif
5927 use pm_kind, only: RKC => RK2
5928 procedure(real(RKC)) :: getFunc
5929 type(ninf_type) , intent(in) :: lb
5930 real(RKC) , intent(in) :: ub
5931 real(RKC) , intent(in) :: abstol
5932 real(RKC) , intent(in) :: reltol
5933 type(GK15_type) , intent(in) :: qrule
5934 real(RKC) , intent(out) :: integral, abserr
5935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5936 integer(IK) , intent(out) , contiguous :: sindex(:)
5937 integer(IK) , intent(out) :: neval
5938 integer(IK) , intent(out) :: nint
5939 integer(IK) :: err
5940 end function
5941#endif
5942
5943#if RK1_ENABLED
5944 module function QAGD_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK1
5947#endif
5948 use pm_kind, only: RKC => RK1
5949 procedure(real(RKC)) :: getFunc
5950 type(ninf_type) , intent(in) :: lb
5951 real(RKC) , intent(in) :: ub
5952 real(RKC) , intent(in) :: abstol
5953 real(RKC) , intent(in) :: reltol
5954 type(GK15_type) , intent(in) :: qrule
5955 real(RKC) , intent(out) :: integral, abserr
5956 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5957 integer(IK) , intent(out) , contiguous :: sindex(:)
5958 integer(IK) , intent(out) :: neval
5959 integer(IK) , intent(out) :: nint
5960 integer(IK) :: err
5961 end function
5962#endif
5963
5964 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5965
5966#if RK5_ENABLED
5967 module function QAGD_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5969 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK5
5970#endif
5971 use pm_kind, only: RKC => RK5
5972 procedure(real(RKC)) :: getFunc
5973 type(ninf_type) , intent(in) :: lb
5974 type(pinf_type) , intent(in) :: ub
5975 real(RKC) , intent(in) :: abstol
5976 real(RKC) , intent(in) :: reltol
5977 type(GK15_type) , intent(in) :: qrule
5978 real(RKC) , intent(out) :: integral, abserr
5979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5980 integer(IK) , intent(out) , contiguous :: sindex(:)
5981 integer(IK) , intent(out) :: neval
5982 integer(IK) , intent(out) :: nint
5983 integer(IK) :: err
5984 end function
5985#endif
5986
5987#if RK4_ENABLED
5988 module function QAGD_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5990 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK4
5991#endif
5992 use pm_kind, only: RKC => RK4
5993 procedure(real(RKC)) :: getFunc
5994 type(ninf_type) , intent(in) :: lb
5995 type(pinf_type) , intent(in) :: ub
5996 real(RKC) , intent(in) :: abstol
5997 real(RKC) , intent(in) :: reltol
5998 type(GK15_type) , intent(in) :: qrule
5999 real(RKC) , intent(out) :: integral, abserr
6000 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6001 integer(IK) , intent(out) , contiguous :: sindex(:)
6002 integer(IK) , intent(out) :: neval
6003 integer(IK) , intent(out) :: nint
6004 integer(IK) :: err
6005 end function
6006#endif
6007
6008#if RK3_ENABLED
6009 module function QAGD_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6011 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK3
6012#endif
6013 use pm_kind, only: RKC => RK3
6014 procedure(real(RKC)) :: getFunc
6015 type(ninf_type) , intent(in) :: lb
6016 type(pinf_type) , intent(in) :: ub
6017 real(RKC) , intent(in) :: abstol
6018 real(RKC) , intent(in) :: reltol
6019 type(GK15_type) , intent(in) :: qrule
6020 real(RKC) , intent(out) :: integral, abserr
6021 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6022 integer(IK) , intent(out) , contiguous :: sindex(:)
6023 integer(IK) , intent(out) :: neval
6024 integer(IK) , intent(out) :: nint
6025 integer(IK) :: err
6026 end function
6027#endif
6028
6029#if RK2_ENABLED
6030 module function QAGD_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK2
6033#endif
6034 use pm_kind, only: RKC => RK2
6035 procedure(real(RKC)) :: getFunc
6036 type(ninf_type) , intent(in) :: lb
6037 type(pinf_type) , intent(in) :: ub
6038 real(RKC) , intent(in) :: abstol
6039 real(RKC) , intent(in) :: reltol
6040 type(GK15_type) , intent(in) :: qrule
6041 real(RKC) , intent(out) :: integral, abserr
6042 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6043 integer(IK) , intent(out) , contiguous :: sindex(:)
6044 integer(IK) , intent(out) :: neval
6045 integer(IK) , intent(out) :: nint
6046 integer(IK) :: err
6047 end function
6048#endif
6049
6050#if RK1_ENABLED
6051 module function QAGD_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6053 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK1
6054#endif
6055 use pm_kind, only: RKC => RK1
6056 procedure(real(RKC)) :: getFunc
6057 type(ninf_type) , intent(in) :: lb
6058 type(pinf_type) , intent(in) :: ub
6059 real(RKC) , intent(in) :: abstol
6060 real(RKC) , intent(in) :: reltol
6061 type(GK15_type) , intent(in) :: qrule
6062 real(RKC) , intent(out) :: integral, abserr
6063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6064 integer(IK) , intent(out) , contiguous :: sindex(:)
6065 integer(IK) , intent(out) :: neval
6066 integer(IK) , intent(out) :: nint
6067 integer(IK) :: err
6068 end function
6069#endif
6070
6071 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6072
6073 end interface
6074
6075 ! QAGD_GK21
6076
6077 interface getQuadErr
6078
6079 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6080
6081#if RK5_ENABLED
6082 module function QAGD_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6084 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK5
6085#endif
6086 use pm_kind, only: RKC => RK5
6087 procedure(real(RKC)) :: getFunc
6088 real(RKC) , intent(in) :: lb
6089 real(RKC) , intent(in) :: ub
6090 real(RKC) , intent(in) :: abstol
6091 real(RKC) , intent(in) :: reltol
6092 type(GK21_type) , intent(in) :: qrule
6093 real(RKC) , intent(out) :: integral, abserr
6094 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6095 integer(IK) , intent(out) , contiguous :: sindex(:)
6096 integer(IK) , intent(out) :: neval
6097 integer(IK) , intent(out) :: nint
6098 integer(IK) :: err
6099 end function
6100#endif
6101
6102#if RK4_ENABLED
6103 module function QAGD_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6105 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK4
6106#endif
6107 use pm_kind, only: RKC => RK4
6108 procedure(real(RKC)) :: getFunc
6109 real(RKC) , intent(in) :: lb
6110 real(RKC) , intent(in) :: ub
6111 real(RKC) , intent(in) :: abstol
6112 real(RKC) , intent(in) :: reltol
6113 type(GK21_type) , intent(in) :: qrule
6114 real(RKC) , intent(out) :: integral, abserr
6115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6116 integer(IK) , intent(out) , contiguous :: sindex(:)
6117 integer(IK) , intent(out) :: neval
6118 integer(IK) , intent(out) :: nint
6119 integer(IK) :: err
6120 end function
6121#endif
6122
6123#if RK3_ENABLED
6124 module function QAGD_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6126 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK3
6127#endif
6128 use pm_kind, only: RKC => RK3
6129 procedure(real(RKC)) :: getFunc
6130 real(RKC) , intent(in) :: lb
6131 real(RKC) , intent(in) :: ub
6132 real(RKC) , intent(in) :: abstol
6133 real(RKC) , intent(in) :: reltol
6134 type(GK21_type) , intent(in) :: qrule
6135 real(RKC) , intent(out) :: integral, abserr
6136 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6137 integer(IK) , intent(out) , contiguous :: sindex(:)
6138 integer(IK) , intent(out) :: neval
6139 integer(IK) , intent(out) :: nint
6140 integer(IK) :: err
6141 end function
6142#endif
6143
6144#if RK2_ENABLED
6145 module function QAGD_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6147 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK2
6148#endif
6149 use pm_kind, only: RKC => RK2
6150 procedure(real(RKC)) :: getFunc
6151 real(RKC) , intent(in) :: lb
6152 real(RKC) , intent(in) :: ub
6153 real(RKC) , intent(in) :: abstol
6154 real(RKC) , intent(in) :: reltol
6155 type(GK21_type) , intent(in) :: qrule
6156 real(RKC) , intent(out) :: integral, abserr
6157 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6158 integer(IK) , intent(out) , contiguous :: sindex(:)
6159 integer(IK) , intent(out) :: neval
6160 integer(IK) , intent(out) :: nint
6161 integer(IK) :: err
6162 end function
6163#endif
6164
6165#if RK1_ENABLED
6166 module function QAGD_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6168 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK1
6169#endif
6170 use pm_kind, only: RKC => RK1
6171 procedure(real(RKC)) :: getFunc
6172 real(RKC) , intent(in) :: lb
6173 real(RKC) , intent(in) :: ub
6174 real(RKC) , intent(in) :: abstol
6175 real(RKC) , intent(in) :: reltol
6176 type(GK21_type) , intent(in) :: qrule
6177 real(RKC) , intent(out) :: integral, abserr
6178 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6179 integer(IK) , intent(out) , contiguous :: sindex(:)
6180 integer(IK) , intent(out) :: neval
6181 integer(IK) , intent(out) :: nint
6182 integer(IK) :: err
6183 end function
6184#endif
6185
6186 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6187
6188#if RK5_ENABLED
6189 module function QAGD_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6191 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK5
6192#endif
6193 use pm_kind, only: RKC => RK5
6194 procedure(real(RKC)) :: getFunc
6195 real(RKC) , intent(in) :: lb
6196 type(pinf_type) , intent(in) :: ub
6197 real(RKC) , intent(in) :: abstol
6198 real(RKC) , intent(in) :: reltol
6199 type(GK21_type) , intent(in) :: qrule
6200 real(RKC) , intent(out) :: integral, abserr
6201 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6202 integer(IK) , intent(out) , contiguous :: sindex(:)
6203 integer(IK) , intent(out) :: neval
6204 integer(IK) , intent(out) :: nint
6205 integer(IK) :: err
6206 end function
6207#endif
6208
6209#if RK4_ENABLED
6210 module function QAGD_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6212 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK4
6213#endif
6214 use pm_kind, only: RKC => RK4
6215 procedure(real(RKC)) :: getFunc
6216 real(RKC) , intent(in) :: lb
6217 type(pinf_type) , intent(in) :: ub
6218 real(RKC) , intent(in) :: abstol
6219 real(RKC) , intent(in) :: reltol
6220 type(GK21_type) , intent(in) :: qrule
6221 real(RKC) , intent(out) :: integral, abserr
6222 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6223 integer(IK) , intent(out) , contiguous :: sindex(:)
6224 integer(IK) , intent(out) :: neval
6225 integer(IK) , intent(out) :: nint
6226 integer(IK) :: err
6227 end function
6228#endif
6229
6230#if RK3_ENABLED
6231 module function QAGD_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6233 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK3
6234#endif
6235 use pm_kind, only: RKC => RK3
6236 procedure(real(RKC)) :: getFunc
6237 real(RKC) , intent(in) :: lb
6238 type(pinf_type) , intent(in) :: ub
6239 real(RKC) , intent(in) :: abstol
6240 real(RKC) , intent(in) :: reltol
6241 type(GK21_type) , intent(in) :: qrule
6242 real(RKC) , intent(out) :: integral, abserr
6243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6244 integer(IK) , intent(out) , contiguous :: sindex(:)
6245 integer(IK) , intent(out) :: neval
6246 integer(IK) , intent(out) :: nint
6247 integer(IK) :: err
6248 end function
6249#endif
6250
6251#if RK2_ENABLED
6252 module function QAGD_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6254 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK2
6255#endif
6256 use pm_kind, only: RKC => RK2
6257 procedure(real(RKC)) :: getFunc
6258 real(RKC) , intent(in) :: lb
6259 type(pinf_type) , intent(in) :: ub
6260 real(RKC) , intent(in) :: abstol
6261 real(RKC) , intent(in) :: reltol
6262 type(GK21_type) , intent(in) :: qrule
6263 real(RKC) , intent(out) :: integral, abserr
6264 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6265 integer(IK) , intent(out) , contiguous :: sindex(:)
6266 integer(IK) , intent(out) :: neval
6267 integer(IK) , intent(out) :: nint
6268 integer(IK) :: err
6269 end function
6270#endif
6271
6272#if RK1_ENABLED
6273 module function QAGD_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6275 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK1
6276#endif
6277 use pm_kind, only: RKC => RK1
6278 procedure(real(RKC)) :: getFunc
6279 real(RKC) , intent(in) :: lb
6280 type(pinf_type) , intent(in) :: ub
6281 real(RKC) , intent(in) :: abstol
6282 real(RKC) , intent(in) :: reltol
6283 type(GK21_type) , intent(in) :: qrule
6284 real(RKC) , intent(out) :: integral, abserr
6285 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6286 integer(IK) , intent(out) , contiguous :: sindex(:)
6287 integer(IK) , intent(out) :: neval
6288 integer(IK) , intent(out) :: nint
6289 integer(IK) :: err
6290 end function
6291#endif
6292
6293 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6294
6295#if RK5_ENABLED
6296 module function QAGD_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6298 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK5
6299#endif
6300 use pm_kind, only: RKC => RK5
6301 procedure(real(RKC)) :: getFunc
6302 type(ninf_type) , intent(in) :: lb
6303 real(RKC) , intent(in) :: ub
6304 real(RKC) , intent(in) :: abstol
6305 real(RKC) , intent(in) :: reltol
6306 type(GK21_type) , intent(in) :: qrule
6307 real(RKC) , intent(out) :: integral, abserr
6308 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6309 integer(IK) , intent(out) , contiguous :: sindex(:)
6310 integer(IK) , intent(out) :: neval
6311 integer(IK) , intent(out) :: nint
6312 integer(IK) :: err
6313 end function
6314#endif
6315
6316#if RK4_ENABLED
6317 module function QAGD_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6319 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK4
6320#endif
6321 use pm_kind, only: RKC => RK4
6322 procedure(real(RKC)) :: getFunc
6323 type(ninf_type) , intent(in) :: lb
6324 real(RKC) , intent(in) :: ub
6325 real(RKC) , intent(in) :: abstol
6326 real(RKC) , intent(in) :: reltol
6327 type(GK21_type) , intent(in) :: qrule
6328 real(RKC) , intent(out) :: integral, abserr
6329 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6330 integer(IK) , intent(out) , contiguous :: sindex(:)
6331 integer(IK) , intent(out) :: neval
6332 integer(IK) , intent(out) :: nint
6333 integer(IK) :: err
6334 end function
6335#endif
6336
6337#if RK3_ENABLED
6338 module function QAGD_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6340 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK3
6341#endif
6342 use pm_kind, only: RKC => RK3
6343 procedure(real(RKC)) :: getFunc
6344 type(ninf_type) , intent(in) :: lb
6345 real(RKC) , intent(in) :: ub
6346 real(RKC) , intent(in) :: abstol
6347 real(RKC) , intent(in) :: reltol
6348 type(GK21_type) , intent(in) :: qrule
6349 real(RKC) , intent(out) :: integral, abserr
6350 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6351 integer(IK) , intent(out) , contiguous :: sindex(:)
6352 integer(IK) , intent(out) :: neval
6353 integer(IK) , intent(out) :: nint
6354 integer(IK) :: err
6355 end function
6356#endif
6357
6358#if RK2_ENABLED
6359 module function QAGD_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6361 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK2
6362#endif
6363 use pm_kind, only: RKC => RK2
6364 procedure(real(RKC)) :: getFunc
6365 type(ninf_type) , intent(in) :: lb
6366 real(RKC) , intent(in) :: ub
6367 real(RKC) , intent(in) :: abstol
6368 real(RKC) , intent(in) :: reltol
6369 type(GK21_type) , intent(in) :: qrule
6370 real(RKC) , intent(out) :: integral, abserr
6371 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6372 integer(IK) , intent(out) , contiguous :: sindex(:)
6373 integer(IK) , intent(out) :: neval
6374 integer(IK) , intent(out) :: nint
6375 integer(IK) :: err
6376 end function
6377#endif
6378
6379#if RK1_ENABLED
6380 module function QAGD_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6382 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK1
6383#endif
6384 use pm_kind, only: RKC => RK1
6385 procedure(real(RKC)) :: getFunc
6386 type(ninf_type) , intent(in) :: lb
6387 real(RKC) , intent(in) :: ub
6388 real(RKC) , intent(in) :: abstol
6389 real(RKC) , intent(in) :: reltol
6390 type(GK21_type) , intent(in) :: qrule
6391 real(RKC) , intent(out) :: integral, abserr
6392 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6393 integer(IK) , intent(out) , contiguous :: sindex(:)
6394 integer(IK) , intent(out) :: neval
6395 integer(IK) , intent(out) :: nint
6396 integer(IK) :: err
6397 end function
6398#endif
6399
6400 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6401
6402#if RK5_ENABLED
6403 module function QAGD_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6405 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK5
6406#endif
6407 use pm_kind, only: RKC => RK5
6408 procedure(real(RKC)) :: getFunc
6409 type(ninf_type) , intent(in) :: lb
6410 type(pinf_type) , intent(in) :: ub
6411 real(RKC) , intent(in) :: abstol
6412 real(RKC) , intent(in) :: reltol
6413 type(GK21_type) , intent(in) :: qrule
6414 real(RKC) , intent(out) :: integral, abserr
6415 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6416 integer(IK) , intent(out) , contiguous :: sindex(:)
6417 integer(IK) , intent(out) :: neval
6418 integer(IK) , intent(out) :: nint
6419 integer(IK) :: err
6420 end function
6421#endif
6422
6423#if RK4_ENABLED
6424 module function QAGD_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK4
6427#endif
6428 use pm_kind, only: RKC => RK4
6429 procedure(real(RKC)) :: getFunc
6430 type(ninf_type) , intent(in) :: lb
6431 type(pinf_type) , intent(in) :: ub
6432 real(RKC) , intent(in) :: abstol
6433 real(RKC) , intent(in) :: reltol
6434 type(GK21_type) , intent(in) :: qrule
6435 real(RKC) , intent(out) :: integral, abserr
6436 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6437 integer(IK) , intent(out) , contiguous :: sindex(:)
6438 integer(IK) , intent(out) :: neval
6439 integer(IK) , intent(out) :: nint
6440 integer(IK) :: err
6441 end function
6442#endif
6443
6444#if RK3_ENABLED
6445 module function QAGD_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6447 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK3
6448#endif
6449 use pm_kind, only: RKC => RK3
6450 procedure(real(RKC)) :: getFunc
6451 type(ninf_type) , intent(in) :: lb
6452 type(pinf_type) , intent(in) :: ub
6453 real(RKC) , intent(in) :: abstol
6454 real(RKC) , intent(in) :: reltol
6455 type(GK21_type) , intent(in) :: qrule
6456 real(RKC) , intent(out) :: integral, abserr
6457 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6458 integer(IK) , intent(out) , contiguous :: sindex(:)
6459 integer(IK) , intent(out) :: neval
6460 integer(IK) , intent(out) :: nint
6461 integer(IK) :: err
6462 end function
6463#endif
6464
6465#if RK2_ENABLED
6466 module function QAGD_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6468 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK2
6469#endif
6470 use pm_kind, only: RKC => RK2
6471 procedure(real(RKC)) :: getFunc
6472 type(ninf_type) , intent(in) :: lb
6473 type(pinf_type) , intent(in) :: ub
6474 real(RKC) , intent(in) :: abstol
6475 real(RKC) , intent(in) :: reltol
6476 type(GK21_type) , intent(in) :: qrule
6477 real(RKC) , intent(out) :: integral, abserr
6478 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6479 integer(IK) , intent(out) , contiguous :: sindex(:)
6480 integer(IK) , intent(out) :: neval
6481 integer(IK) , intent(out) :: nint
6482 integer(IK) :: err
6483 end function
6484#endif
6485
6486#if RK1_ENABLED
6487 module function QAGD_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6489 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK1
6490#endif
6491 use pm_kind, only: RKC => RK1
6492 procedure(real(RKC)) :: getFunc
6493 type(ninf_type) , intent(in) :: lb
6494 type(pinf_type) , intent(in) :: ub
6495 real(RKC) , intent(in) :: abstol
6496 real(RKC) , intent(in) :: reltol
6497 type(GK21_type) , intent(in) :: qrule
6498 real(RKC) , intent(out) :: integral, abserr
6499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6500 integer(IK) , intent(out) , contiguous :: sindex(:)
6501 integer(IK) , intent(out) :: neval
6502 integer(IK) , intent(out) :: nint
6503 integer(IK) :: err
6504 end function
6505#endif
6506
6507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6508
6509 end interface
6510
6511 ! QAGD_GK31
6512
6513 interface getQuadErr
6514
6515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6516
6517#if RK5_ENABLED
6518 module function QAGD_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6520 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK5
6521#endif
6522 use pm_kind, only: RKC => RK5
6523 procedure(real(RKC)) :: getFunc
6524 real(RKC) , intent(in) :: lb
6525 real(RKC) , intent(in) :: ub
6526 real(RKC) , intent(in) :: abstol
6527 real(RKC) , intent(in) :: reltol
6528 type(GK31_type) , intent(in) :: qrule
6529 real(RKC) , intent(out) :: integral, abserr
6530 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6531 integer(IK) , intent(out) , contiguous :: sindex(:)
6532 integer(IK) , intent(out) :: neval
6533 integer(IK) , intent(out) :: nint
6534 integer(IK) :: err
6535 end function
6536#endif
6537
6538#if RK4_ENABLED
6539 module function QAGD_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6541 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK4
6542#endif
6543 use pm_kind, only: RKC => RK4
6544 procedure(real(RKC)) :: getFunc
6545 real(RKC) , intent(in) :: lb
6546 real(RKC) , intent(in) :: ub
6547 real(RKC) , intent(in) :: abstol
6548 real(RKC) , intent(in) :: reltol
6549 type(GK31_type) , intent(in) :: qrule
6550 real(RKC) , intent(out) :: integral, abserr
6551 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6552 integer(IK) , intent(out) , contiguous :: sindex(:)
6553 integer(IK) , intent(out) :: neval
6554 integer(IK) , intent(out) :: nint
6555 integer(IK) :: err
6556 end function
6557#endif
6558
6559#if RK3_ENABLED
6560 module function QAGD_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK3
6563#endif
6564 use pm_kind, only: RKC => RK3
6565 procedure(real(RKC)) :: getFunc
6566 real(RKC) , intent(in) :: lb
6567 real(RKC) , intent(in) :: ub
6568 real(RKC) , intent(in) :: abstol
6569 real(RKC) , intent(in) :: reltol
6570 type(GK31_type) , intent(in) :: qrule
6571 real(RKC) , intent(out) :: integral, abserr
6572 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6573 integer(IK) , intent(out) , contiguous :: sindex(:)
6574 integer(IK) , intent(out) :: neval
6575 integer(IK) , intent(out) :: nint
6576 integer(IK) :: err
6577 end function
6578#endif
6579
6580#if RK2_ENABLED
6581 module function QAGD_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6583 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK2
6584#endif
6585 use pm_kind, only: RKC => RK2
6586 procedure(real(RKC)) :: getFunc
6587 real(RKC) , intent(in) :: lb
6588 real(RKC) , intent(in) :: ub
6589 real(RKC) , intent(in) :: abstol
6590 real(RKC) , intent(in) :: reltol
6591 type(GK31_type) , intent(in) :: qrule
6592 real(RKC) , intent(out) :: integral, abserr
6593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6594 integer(IK) , intent(out) , contiguous :: sindex(:)
6595 integer(IK) , intent(out) :: neval
6596 integer(IK) , intent(out) :: nint
6597 integer(IK) :: err
6598 end function
6599#endif
6600
6601#if RK1_ENABLED
6602 module function QAGD_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6604 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK1
6605#endif
6606 use pm_kind, only: RKC => RK1
6607 procedure(real(RKC)) :: getFunc
6608 real(RKC) , intent(in) :: lb
6609 real(RKC) , intent(in) :: ub
6610 real(RKC) , intent(in) :: abstol
6611 real(RKC) , intent(in) :: reltol
6612 type(GK31_type) , intent(in) :: qrule
6613 real(RKC) , intent(out) :: integral, abserr
6614 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6615 integer(IK) , intent(out) , contiguous :: sindex(:)
6616 integer(IK) , intent(out) :: neval
6617 integer(IK) , intent(out) :: nint
6618 integer(IK) :: err
6619 end function
6620#endif
6621
6622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6623
6624#if RK5_ENABLED
6625 module function QAGD_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6627 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK5
6628#endif
6629 use pm_kind, only: RKC => RK5
6630 procedure(real(RKC)) :: getFunc
6631 real(RKC) , intent(in) :: lb
6632 type(pinf_type) , intent(in) :: ub
6633 real(RKC) , intent(in) :: abstol
6634 real(RKC) , intent(in) :: reltol
6635 type(GK31_type) , intent(in) :: qrule
6636 real(RKC) , intent(out) :: integral, abserr
6637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6638 integer(IK) , intent(out) , contiguous :: sindex(:)
6639 integer(IK) , intent(out) :: neval
6640 integer(IK) , intent(out) :: nint
6641 integer(IK) :: err
6642 end function
6643#endif
6644
6645#if RK4_ENABLED
6646 module function QAGD_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6648 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK4
6649#endif
6650 use pm_kind, only: RKC => RK4
6651 procedure(real(RKC)) :: getFunc
6652 real(RKC) , intent(in) :: lb
6653 type(pinf_type) , intent(in) :: ub
6654 real(RKC) , intent(in) :: abstol
6655 real(RKC) , intent(in) :: reltol
6656 type(GK31_type) , intent(in) :: qrule
6657 real(RKC) , intent(out) :: integral, abserr
6658 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6659 integer(IK) , intent(out) , contiguous :: sindex(:)
6660 integer(IK) , intent(out) :: neval
6661 integer(IK) , intent(out) :: nint
6662 integer(IK) :: err
6663 end function
6664#endif
6665
6666#if RK3_ENABLED
6667 module function QAGD_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6669 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK3
6670#endif
6671 use pm_kind, only: RKC => RK3
6672 procedure(real(RKC)) :: getFunc
6673 real(RKC) , intent(in) :: lb
6674 type(pinf_type) , intent(in) :: ub
6675 real(RKC) , intent(in) :: abstol
6676 real(RKC) , intent(in) :: reltol
6677 type(GK31_type) , intent(in) :: qrule
6678 real(RKC) , intent(out) :: integral, abserr
6679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6680 integer(IK) , intent(out) , contiguous :: sindex(:)
6681 integer(IK) , intent(out) :: neval
6682 integer(IK) , intent(out) :: nint
6683 integer(IK) :: err
6684 end function
6685#endif
6686
6687#if RK2_ENABLED
6688 module function QAGD_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6690 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK2
6691#endif
6692 use pm_kind, only: RKC => RK2
6693 procedure(real(RKC)) :: getFunc
6694 real(RKC) , intent(in) :: lb
6695 type(pinf_type) , intent(in) :: ub
6696 real(RKC) , intent(in) :: abstol
6697 real(RKC) , intent(in) :: reltol
6698 type(GK31_type) , intent(in) :: qrule
6699 real(RKC) , intent(out) :: integral, abserr
6700 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6701 integer(IK) , intent(out) , contiguous :: sindex(:)
6702 integer(IK) , intent(out) :: neval
6703 integer(IK) , intent(out) :: nint
6704 integer(IK) :: err
6705 end function
6706#endif
6707
6708#if RK1_ENABLED
6709 module function QAGD_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6711 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK1
6712#endif
6713 use pm_kind, only: RKC => RK1
6714 procedure(real(RKC)) :: getFunc
6715 real(RKC) , intent(in) :: lb
6716 type(pinf_type) , intent(in) :: ub
6717 real(RKC) , intent(in) :: abstol
6718 real(RKC) , intent(in) :: reltol
6719 type(GK31_type) , intent(in) :: qrule
6720 real(RKC) , intent(out) :: integral, abserr
6721 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6722 integer(IK) , intent(out) , contiguous :: sindex(:)
6723 integer(IK) , intent(out) :: neval
6724 integer(IK) , intent(out) :: nint
6725 integer(IK) :: err
6726 end function
6727#endif
6728
6729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6730
6731#if RK5_ENABLED
6732 module function QAGD_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6734 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK5
6735#endif
6736 use pm_kind, only: RKC => RK5
6737 procedure(real(RKC)) :: getFunc
6738 type(ninf_type) , intent(in) :: lb
6739 real(RKC) , intent(in) :: ub
6740 real(RKC) , intent(in) :: abstol
6741 real(RKC) , intent(in) :: reltol
6742 type(GK31_type) , intent(in) :: qrule
6743 real(RKC) , intent(out) :: integral, abserr
6744 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6745 integer(IK) , intent(out) , contiguous :: sindex(:)
6746 integer(IK) , intent(out) :: neval
6747 integer(IK) , intent(out) :: nint
6748 integer(IK) :: err
6749 end function
6750#endif
6751
6752#if RK4_ENABLED
6753 module function QAGD_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6755 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK4
6756#endif
6757 use pm_kind, only: RKC => RK4
6758 procedure(real(RKC)) :: getFunc
6759 type(ninf_type) , intent(in) :: lb
6760 real(RKC) , intent(in) :: ub
6761 real(RKC) , intent(in) :: abstol
6762 real(RKC) , intent(in) :: reltol
6763 type(GK31_type) , intent(in) :: qrule
6764 real(RKC) , intent(out) :: integral, abserr
6765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6766 integer(IK) , intent(out) , contiguous :: sindex(:)
6767 integer(IK) , intent(out) :: neval
6768 integer(IK) , intent(out) :: nint
6769 integer(IK) :: err
6770 end function
6771#endif
6772
6773#if RK3_ENABLED
6774 module function QAGD_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6776 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK3
6777#endif
6778 use pm_kind, only: RKC => RK3
6779 procedure(real(RKC)) :: getFunc
6780 type(ninf_type) , intent(in) :: lb
6781 real(RKC) , intent(in) :: ub
6782 real(RKC) , intent(in) :: abstol
6783 real(RKC) , intent(in) :: reltol
6784 type(GK31_type) , intent(in) :: qrule
6785 real(RKC) , intent(out) :: integral, abserr
6786 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6787 integer(IK) , intent(out) , contiguous :: sindex(:)
6788 integer(IK) , intent(out) :: neval
6789 integer(IK) , intent(out) :: nint
6790 integer(IK) :: err
6791 end function
6792#endif
6793
6794#if RK2_ENABLED
6795 module function QAGD_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6797 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK2
6798#endif
6799 use pm_kind, only: RKC => RK2
6800 procedure(real(RKC)) :: getFunc
6801 type(ninf_type) , intent(in) :: lb
6802 real(RKC) , intent(in) :: ub
6803 real(RKC) , intent(in) :: abstol
6804 real(RKC) , intent(in) :: reltol
6805 type(GK31_type) , intent(in) :: qrule
6806 real(RKC) , intent(out) :: integral, abserr
6807 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6808 integer(IK) , intent(out) , contiguous :: sindex(:)
6809 integer(IK) , intent(out) :: neval
6810 integer(IK) , intent(out) :: nint
6811 integer(IK) :: err
6812 end function
6813#endif
6814
6815#if RK1_ENABLED
6816 module function QAGD_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6818 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK1
6819#endif
6820 use pm_kind, only: RKC => RK1
6821 procedure(real(RKC)) :: getFunc
6822 type(ninf_type) , intent(in) :: lb
6823 real(RKC) , intent(in) :: ub
6824 real(RKC) , intent(in) :: abstol
6825 real(RKC) , intent(in) :: reltol
6826 type(GK31_type) , intent(in) :: qrule
6827 real(RKC) , intent(out) :: integral, abserr
6828 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6829 integer(IK) , intent(out) , contiguous :: sindex(:)
6830 integer(IK) , intent(out) :: neval
6831 integer(IK) , intent(out) :: nint
6832 integer(IK) :: err
6833 end function
6834#endif
6835
6836 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6837
6838#if RK5_ENABLED
6839 module function QAGD_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6841 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK5
6842#endif
6843 use pm_kind, only: RKC => RK5
6844 procedure(real(RKC)) :: getFunc
6845 type(ninf_type) , intent(in) :: lb
6846 type(pinf_type) , intent(in) :: ub
6847 real(RKC) , intent(in) :: abstol
6848 real(RKC) , intent(in) :: reltol
6849 type(GK31_type) , intent(in) :: qrule
6850 real(RKC) , intent(out) :: integral, abserr
6851 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6852 integer(IK) , intent(out) , contiguous :: sindex(:)
6853 integer(IK) , intent(out) :: neval
6854 integer(IK) , intent(out) :: nint
6855 integer(IK) :: err
6856 end function
6857#endif
6858
6859#if RK4_ENABLED
6860 module function QAGD_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6862 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK4
6863#endif
6864 use pm_kind, only: RKC => RK4
6865 procedure(real(RKC)) :: getFunc
6866 type(ninf_type) , intent(in) :: lb
6867 type(pinf_type) , intent(in) :: ub
6868 real(RKC) , intent(in) :: abstol
6869 real(RKC) , intent(in) :: reltol
6870 type(GK31_type) , intent(in) :: qrule
6871 real(RKC) , intent(out) :: integral, abserr
6872 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6873 integer(IK) , intent(out) , contiguous :: sindex(:)
6874 integer(IK) , intent(out) :: neval
6875 integer(IK) , intent(out) :: nint
6876 integer(IK) :: err
6877 end function
6878#endif
6879
6880#if RK3_ENABLED
6881 module function QAGD_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6883 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK3
6884#endif
6885 use pm_kind, only: RKC => RK3
6886 procedure(real(RKC)) :: getFunc
6887 type(ninf_type) , intent(in) :: lb
6888 type(pinf_type) , intent(in) :: ub
6889 real(RKC) , intent(in) :: abstol
6890 real(RKC) , intent(in) :: reltol
6891 type(GK31_type) , intent(in) :: qrule
6892 real(RKC) , intent(out) :: integral, abserr
6893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6894 integer(IK) , intent(out) , contiguous :: sindex(:)
6895 integer(IK) , intent(out) :: neval
6896 integer(IK) , intent(out) :: nint
6897 integer(IK) :: err
6898 end function
6899#endif
6900
6901#if RK2_ENABLED
6902 module function QAGD_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK2
6905#endif
6906 use pm_kind, only: RKC => RK2
6907 procedure(real(RKC)) :: getFunc
6908 type(ninf_type) , intent(in) :: lb
6909 type(pinf_type) , intent(in) :: ub
6910 real(RKC) , intent(in) :: abstol
6911 real(RKC) , intent(in) :: reltol
6912 type(GK31_type) , intent(in) :: qrule
6913 real(RKC) , intent(out) :: integral, abserr
6914 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6915 integer(IK) , intent(out) , contiguous :: sindex(:)
6916 integer(IK) , intent(out) :: neval
6917 integer(IK) , intent(out) :: nint
6918 integer(IK) :: err
6919 end function
6920#endif
6921
6922#if RK1_ENABLED
6923 module function QAGD_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6925 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK1
6926#endif
6927 use pm_kind, only: RKC => RK1
6928 procedure(real(RKC)) :: getFunc
6929 type(ninf_type) , intent(in) :: lb
6930 type(pinf_type) , intent(in) :: ub
6931 real(RKC) , intent(in) :: abstol
6932 real(RKC) , intent(in) :: reltol
6933 type(GK31_type) , intent(in) :: qrule
6934 real(RKC) , intent(out) :: integral, abserr
6935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6936 integer(IK) , intent(out) , contiguous :: sindex(:)
6937 integer(IK) , intent(out) :: neval
6938 integer(IK) , intent(out) :: nint
6939 integer(IK) :: err
6940 end function
6941#endif
6942
6943 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6944
6945 end interface
6946
6947 ! QAGD_GK41
6948
6949 interface getQuadErr
6950
6951 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6952
6953#if RK5_ENABLED
6954 module function QAGD_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6956 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK5
6957#endif
6958 use pm_kind, only: RKC => RK5
6959 procedure(real(RKC)) :: getFunc
6960 real(RKC) , intent(in) :: lb
6961 real(RKC) , intent(in) :: ub
6962 real(RKC) , intent(in) :: abstol
6963 real(RKC) , intent(in) :: reltol
6964 type(GK41_type) , intent(in) :: qrule
6965 real(RKC) , intent(out) :: integral, abserr
6966 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6967 integer(IK) , intent(out) , contiguous :: sindex(:)
6968 integer(IK) , intent(out) :: neval
6969 integer(IK) , intent(out) :: nint
6970 integer(IK) :: err
6971 end function
6972#endif
6973
6974#if RK4_ENABLED
6975 module function QAGD_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6977 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK4
6978#endif
6979 use pm_kind, only: RKC => RK4
6980 procedure(real(RKC)) :: getFunc
6981 real(RKC) , intent(in) :: lb
6982 real(RKC) , intent(in) :: ub
6983 real(RKC) , intent(in) :: abstol
6984 real(RKC) , intent(in) :: reltol
6985 type(GK41_type) , intent(in) :: qrule
6986 real(RKC) , intent(out) :: integral, abserr
6987 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6988 integer(IK) , intent(out) , contiguous :: sindex(:)
6989 integer(IK) , intent(out) :: neval
6990 integer(IK) , intent(out) :: nint
6991 integer(IK) :: err
6992 end function
6993#endif
6994
6995#if RK3_ENABLED
6996 module function QAGD_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6998 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK3
6999#endif
7000 use pm_kind, only: RKC => RK3
7001 procedure(real(RKC)) :: getFunc
7002 real(RKC) , intent(in) :: lb
7003 real(RKC) , intent(in) :: ub
7004 real(RKC) , intent(in) :: abstol
7005 real(RKC) , intent(in) :: reltol
7006 type(GK41_type) , intent(in) :: qrule
7007 real(RKC) , intent(out) :: integral, abserr
7008 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7009 integer(IK) , intent(out) , contiguous :: sindex(:)
7010 integer(IK) , intent(out) :: neval
7011 integer(IK) , intent(out) :: nint
7012 integer(IK) :: err
7013 end function
7014#endif
7015
7016#if RK2_ENABLED
7017 module function QAGD_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7019 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK2
7020#endif
7021 use pm_kind, only: RKC => RK2
7022 procedure(real(RKC)) :: getFunc
7023 real(RKC) , intent(in) :: lb
7024 real(RKC) , intent(in) :: ub
7025 real(RKC) , intent(in) :: abstol
7026 real(RKC) , intent(in) :: reltol
7027 type(GK41_type) , intent(in) :: qrule
7028 real(RKC) , intent(out) :: integral, abserr
7029 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7030 integer(IK) , intent(out) , contiguous :: sindex(:)
7031 integer(IK) , intent(out) :: neval
7032 integer(IK) , intent(out) :: nint
7033 integer(IK) :: err
7034 end function
7035#endif
7036
7037#if RK1_ENABLED
7038 module function QAGD_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7040 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK1
7041#endif
7042 use pm_kind, only: RKC => RK1
7043 procedure(real(RKC)) :: getFunc
7044 real(RKC) , intent(in) :: lb
7045 real(RKC) , intent(in) :: ub
7046 real(RKC) , intent(in) :: abstol
7047 real(RKC) , intent(in) :: reltol
7048 type(GK41_type) , intent(in) :: qrule
7049 real(RKC) , intent(out) :: integral, abserr
7050 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7051 integer(IK) , intent(out) , contiguous :: sindex(:)
7052 integer(IK) , intent(out) :: neval
7053 integer(IK) , intent(out) :: nint
7054 integer(IK) :: err
7055 end function
7056#endif
7057
7058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7059
7060#if RK5_ENABLED
7061 module function QAGD_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7063 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK5
7064#endif
7065 use pm_kind, only: RKC => RK5
7066 procedure(real(RKC)) :: getFunc
7067 real(RKC) , intent(in) :: lb
7068 type(pinf_type) , intent(in) :: ub
7069 real(RKC) , intent(in) :: abstol
7070 real(RKC) , intent(in) :: reltol
7071 type(GK41_type) , intent(in) :: qrule
7072 real(RKC) , intent(out) :: integral, abserr
7073 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7074 integer(IK) , intent(out) , contiguous :: sindex(:)
7075 integer(IK) , intent(out) :: neval
7076 integer(IK) , intent(out) :: nint
7077 integer(IK) :: err
7078 end function
7079#endif
7080
7081#if RK4_ENABLED
7082 module function QAGD_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7084 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK4
7085#endif
7086 use pm_kind, only: RKC => RK4
7087 procedure(real(RKC)) :: getFunc
7088 real(RKC) , intent(in) :: lb
7089 type(pinf_type) , intent(in) :: ub
7090 real(RKC) , intent(in) :: abstol
7091 real(RKC) , intent(in) :: reltol
7092 type(GK41_type) , intent(in) :: qrule
7093 real(RKC) , intent(out) :: integral, abserr
7094 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7095 integer(IK) , intent(out) , contiguous :: sindex(:)
7096 integer(IK) , intent(out) :: neval
7097 integer(IK) , intent(out) :: nint
7098 integer(IK) :: err
7099 end function
7100#endif
7101
7102#if RK3_ENABLED
7103 module function QAGD_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7105 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK3
7106#endif
7107 use pm_kind, only: RKC => RK3
7108 procedure(real(RKC)) :: getFunc
7109 real(RKC) , intent(in) :: lb
7110 type(pinf_type) , intent(in) :: ub
7111 real(RKC) , intent(in) :: abstol
7112 real(RKC) , intent(in) :: reltol
7113 type(GK41_type) , intent(in) :: qrule
7114 real(RKC) , intent(out) :: integral, abserr
7115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7116 integer(IK) , intent(out) , contiguous :: sindex(:)
7117 integer(IK) , intent(out) :: neval
7118 integer(IK) , intent(out) :: nint
7119 integer(IK) :: err
7120 end function
7121#endif
7122
7123#if RK2_ENABLED
7124 module function QAGD_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7126 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK2
7127#endif
7128 use pm_kind, only: RKC => RK2
7129 procedure(real(RKC)) :: getFunc
7130 real(RKC) , intent(in) :: lb
7131 type(pinf_type) , intent(in) :: ub
7132 real(RKC) , intent(in) :: abstol
7133 real(RKC) , intent(in) :: reltol
7134 type(GK41_type) , intent(in) :: qrule
7135 real(RKC) , intent(out) :: integral, abserr
7136 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7137 integer(IK) , intent(out) , contiguous :: sindex(:)
7138 integer(IK) , intent(out) :: neval
7139 integer(IK) , intent(out) :: nint
7140 integer(IK) :: err
7141 end function
7142#endif
7143
7144#if RK1_ENABLED
7145 module function QAGD_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7147 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK1
7148#endif
7149 use pm_kind, only: RKC => RK1
7150 procedure(real(RKC)) :: getFunc
7151 real(RKC) , intent(in) :: lb
7152 type(pinf_type) , intent(in) :: ub
7153 real(RKC) , intent(in) :: abstol
7154 real(RKC) , intent(in) :: reltol
7155 type(GK41_type) , intent(in) :: qrule
7156 real(RKC) , intent(out) :: integral, abserr
7157 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7158 integer(IK) , intent(out) , contiguous :: sindex(:)
7159 integer(IK) , intent(out) :: neval
7160 integer(IK) , intent(out) :: nint
7161 integer(IK) :: err
7162 end function
7163#endif
7164
7165 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7166
7167#if RK5_ENABLED
7168 module function QAGD_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7170 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK5
7171#endif
7172 use pm_kind, only: RKC => RK5
7173 procedure(real(RKC)) :: getFunc
7174 type(ninf_type) , intent(in) :: lb
7175 real(RKC) , intent(in) :: ub
7176 real(RKC) , intent(in) :: abstol
7177 real(RKC) , intent(in) :: reltol
7178 type(GK41_type) , intent(in) :: qrule
7179 real(RKC) , intent(out) :: integral, abserr
7180 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7181 integer(IK) , intent(out) , contiguous :: sindex(:)
7182 integer(IK) , intent(out) :: neval
7183 integer(IK) , intent(out) :: nint
7184 integer(IK) :: err
7185 end function
7186#endif
7187
7188#if RK4_ENABLED
7189 module function QAGD_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7191 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK4
7192#endif
7193 use pm_kind, only: RKC => RK4
7194 procedure(real(RKC)) :: getFunc
7195 type(ninf_type) , intent(in) :: lb
7196 real(RKC) , intent(in) :: ub
7197 real(RKC) , intent(in) :: abstol
7198 real(RKC) , intent(in) :: reltol
7199 type(GK41_type) , intent(in) :: qrule
7200 real(RKC) , intent(out) :: integral, abserr
7201 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7202 integer(IK) , intent(out) , contiguous :: sindex(:)
7203 integer(IK) , intent(out) :: neval
7204 integer(IK) , intent(out) :: nint
7205 integer(IK) :: err
7206 end function
7207#endif
7208
7209#if RK3_ENABLED
7210 module function QAGD_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7212 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK3
7213#endif
7214 use pm_kind, only: RKC => RK3
7215 procedure(real(RKC)) :: getFunc
7216 type(ninf_type) , intent(in) :: lb
7217 real(RKC) , intent(in) :: ub
7218 real(RKC) , intent(in) :: abstol
7219 real(RKC) , intent(in) :: reltol
7220 type(GK41_type) , intent(in) :: qrule
7221 real(RKC) , intent(out) :: integral, abserr
7222 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7223 integer(IK) , intent(out) , contiguous :: sindex(:)
7224 integer(IK) , intent(out) :: neval
7225 integer(IK) , intent(out) :: nint
7226 integer(IK) :: err
7227 end function
7228#endif
7229
7230#if RK2_ENABLED
7231 module function QAGD_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7233 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK2
7234#endif
7235 use pm_kind, only: RKC => RK2
7236 procedure(real(RKC)) :: getFunc
7237 type(ninf_type) , intent(in) :: lb
7238 real(RKC) , intent(in) :: ub
7239 real(RKC) , intent(in) :: abstol
7240 real(RKC) , intent(in) :: reltol
7241 type(GK41_type) , intent(in) :: qrule
7242 real(RKC) , intent(out) :: integral, abserr
7243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7244 integer(IK) , intent(out) , contiguous :: sindex(:)
7245 integer(IK) , intent(out) :: neval
7246 integer(IK) , intent(out) :: nint
7247 integer(IK) :: err
7248 end function
7249#endif
7250
7251#if RK1_ENABLED
7252 module function QAGD_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7254 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK1
7255#endif
7256 use pm_kind, only: RKC => RK1
7257 procedure(real(RKC)) :: getFunc
7258 type(ninf_type) , intent(in) :: lb
7259 real(RKC) , intent(in) :: ub
7260 real(RKC) , intent(in) :: abstol
7261 real(RKC) , intent(in) :: reltol
7262 type(GK41_type) , intent(in) :: qrule
7263 real(RKC) , intent(out) :: integral, abserr
7264 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7265 integer(IK) , intent(out) , contiguous :: sindex(:)
7266 integer(IK) , intent(out) :: neval
7267 integer(IK) , intent(out) :: nint
7268 integer(IK) :: err
7269 end function
7270#endif
7271
7272 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7273
7274#if RK5_ENABLED
7275 module function QAGD_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7277 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK5
7278#endif
7279 use pm_kind, only: RKC => RK5
7280 procedure(real(RKC)) :: getFunc
7281 type(ninf_type) , intent(in) :: lb
7282 type(pinf_type) , intent(in) :: ub
7283 real(RKC) , intent(in) :: abstol
7284 real(RKC) , intent(in) :: reltol
7285 type(GK41_type) , intent(in) :: qrule
7286 real(RKC) , intent(out) :: integral, abserr
7287 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7288 integer(IK) , intent(out) , contiguous :: sindex(:)
7289 integer(IK) , intent(out) :: neval
7290 integer(IK) , intent(out) :: nint
7291 integer(IK) :: err
7292 end function
7293#endif
7294
7295#if RK4_ENABLED
7296 module function QAGD_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7298 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK4
7299#endif
7300 use pm_kind, only: RKC => RK4
7301 procedure(real(RKC)) :: getFunc
7302 type(ninf_type) , intent(in) :: lb
7303 type(pinf_type) , intent(in) :: ub
7304 real(RKC) , intent(in) :: abstol
7305 real(RKC) , intent(in) :: reltol
7306 type(GK41_type) , intent(in) :: qrule
7307 real(RKC) , intent(out) :: integral, abserr
7308 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7309 integer(IK) , intent(out) , contiguous :: sindex(:)
7310 integer(IK) , intent(out) :: neval
7311 integer(IK) , intent(out) :: nint
7312 integer(IK) :: err
7313 end function
7314#endif
7315
7316#if RK3_ENABLED
7317 module function QAGD_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7319 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK3
7320#endif
7321 use pm_kind, only: RKC => RK3
7322 procedure(real(RKC)) :: getFunc
7323 type(ninf_type) , intent(in) :: lb
7324 type(pinf_type) , intent(in) :: ub
7325 real(RKC) , intent(in) :: abstol
7326 real(RKC) , intent(in) :: reltol
7327 type(GK41_type) , intent(in) :: qrule
7328 real(RKC) , intent(out) :: integral, abserr
7329 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7330 integer(IK) , intent(out) , contiguous :: sindex(:)
7331 integer(IK) , intent(out) :: neval
7332 integer(IK) , intent(out) :: nint
7333 integer(IK) :: err
7334 end function
7335#endif
7336
7337#if RK2_ENABLED
7338 module function QAGD_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7340 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK2
7341#endif
7342 use pm_kind, only: RKC => RK2
7343 procedure(real(RKC)) :: getFunc
7344 type(ninf_type) , intent(in) :: lb
7345 type(pinf_type) , intent(in) :: ub
7346 real(RKC) , intent(in) :: abstol
7347 real(RKC) , intent(in) :: reltol
7348 type(GK41_type) , intent(in) :: qrule
7349 real(RKC) , intent(out) :: integral, abserr
7350 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7351 integer(IK) , intent(out) , contiguous :: sindex(:)
7352 integer(IK) , intent(out) :: neval
7353 integer(IK) , intent(out) :: nint
7354 integer(IK) :: err
7355 end function
7356#endif
7357
7358#if RK1_ENABLED
7359 module function QAGD_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7361 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK1
7362#endif
7363 use pm_kind, only: RKC => RK1
7364 procedure(real(RKC)) :: getFunc
7365 type(ninf_type) , intent(in) :: lb
7366 type(pinf_type) , intent(in) :: ub
7367 real(RKC) , intent(in) :: abstol
7368 real(RKC) , intent(in) :: reltol
7369 type(GK41_type) , intent(in) :: qrule
7370 real(RKC) , intent(out) :: integral, abserr
7371 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7372 integer(IK) , intent(out) , contiguous :: sindex(:)
7373 integer(IK) , intent(out) :: neval
7374 integer(IK) , intent(out) :: nint
7375 integer(IK) :: err
7376 end function
7377#endif
7378
7379 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7380
7381 end interface
7382
7383 ! QAGD_GK51
7384
7385 interface getQuadErr
7386
7387 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7388
7389#if RK5_ENABLED
7390 module function QAGD_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7392 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK5
7393#endif
7394 use pm_kind, only: RKC => RK5
7395 procedure(real(RKC)) :: getFunc
7396 real(RKC) , intent(in) :: lb
7397 real(RKC) , intent(in) :: ub
7398 real(RKC) , intent(in) :: abstol
7399 real(RKC) , intent(in) :: reltol
7400 type(GK51_type) , intent(in) :: qrule
7401 real(RKC) , intent(out) :: integral, abserr
7402 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7403 integer(IK) , intent(out) , contiguous :: sindex(:)
7404 integer(IK) , intent(out) :: neval
7405 integer(IK) , intent(out) :: nint
7406 integer(IK) :: err
7407 end function
7408#endif
7409
7410#if RK4_ENABLED
7411 module function QAGD_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7413 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK4
7414#endif
7415 use pm_kind, only: RKC => RK4
7416 procedure(real(RKC)) :: getFunc
7417 real(RKC) , intent(in) :: lb
7418 real(RKC) , intent(in) :: ub
7419 real(RKC) , intent(in) :: abstol
7420 real(RKC) , intent(in) :: reltol
7421 type(GK51_type) , intent(in) :: qrule
7422 real(RKC) , intent(out) :: integral, abserr
7423 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7424 integer(IK) , intent(out) , contiguous :: sindex(:)
7425 integer(IK) , intent(out) :: neval
7426 integer(IK) , intent(out) :: nint
7427 integer(IK) :: err
7428 end function
7429#endif
7430
7431#if RK3_ENABLED
7432 module function QAGD_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7434 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK3
7435#endif
7436 use pm_kind, only: RKC => RK3
7437 procedure(real(RKC)) :: getFunc
7438 real(RKC) , intent(in) :: lb
7439 real(RKC) , intent(in) :: ub
7440 real(RKC) , intent(in) :: abstol
7441 real(RKC) , intent(in) :: reltol
7442 type(GK51_type) , intent(in) :: qrule
7443 real(RKC) , intent(out) :: integral, abserr
7444 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7445 integer(IK) , intent(out) , contiguous :: sindex(:)
7446 integer(IK) , intent(out) :: neval
7447 integer(IK) , intent(out) :: nint
7448 integer(IK) :: err
7449 end function
7450#endif
7451
7452#if RK2_ENABLED
7453 module function QAGD_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7455 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK2
7456#endif
7457 use pm_kind, only: RKC => RK2
7458 procedure(real(RKC)) :: getFunc
7459 real(RKC) , intent(in) :: lb
7460 real(RKC) , intent(in) :: ub
7461 real(RKC) , intent(in) :: abstol
7462 real(RKC) , intent(in) :: reltol
7463 type(GK51_type) , intent(in) :: qrule
7464 real(RKC) , intent(out) :: integral, abserr
7465 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7466 integer(IK) , intent(out) , contiguous :: sindex(:)
7467 integer(IK) , intent(out) :: neval
7468 integer(IK) , intent(out) :: nint
7469 integer(IK) :: err
7470 end function
7471#endif
7472
7473#if RK1_ENABLED
7474 module function QAGD_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7476 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK1
7477#endif
7478 use pm_kind, only: RKC => RK1
7479 procedure(real(RKC)) :: getFunc
7480 real(RKC) , intent(in) :: lb
7481 real(RKC) , intent(in) :: ub
7482 real(RKC) , intent(in) :: abstol
7483 real(RKC) , intent(in) :: reltol
7484 type(GK51_type) , intent(in) :: qrule
7485 real(RKC) , intent(out) :: integral, abserr
7486 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7487 integer(IK) , intent(out) , contiguous :: sindex(:)
7488 integer(IK) , intent(out) :: neval
7489 integer(IK) , intent(out) :: nint
7490 integer(IK) :: err
7491 end function
7492#endif
7493
7494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7495
7496#if RK5_ENABLED
7497 module function QAGD_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7499 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK5
7500#endif
7501 use pm_kind, only: RKC => RK5
7502 procedure(real(RKC)) :: getFunc
7503 real(RKC) , intent(in) :: lb
7504 type(pinf_type) , intent(in) :: ub
7505 real(RKC) , intent(in) :: abstol
7506 real(RKC) , intent(in) :: reltol
7507 type(GK51_type) , intent(in) :: qrule
7508 real(RKC) , intent(out) :: integral, abserr
7509 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7510 integer(IK) , intent(out) , contiguous :: sindex(:)
7511 integer(IK) , intent(out) :: neval
7512 integer(IK) , intent(out) :: nint
7513 integer(IK) :: err
7514 end function
7515#endif
7516
7517#if RK4_ENABLED
7518 module function QAGD_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7520 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK4
7521#endif
7522 use pm_kind, only: RKC => RK4
7523 procedure(real(RKC)) :: getFunc
7524 real(RKC) , intent(in) :: lb
7525 type(pinf_type) , intent(in) :: ub
7526 real(RKC) , intent(in) :: abstol
7527 real(RKC) , intent(in) :: reltol
7528 type(GK51_type) , intent(in) :: qrule
7529 real(RKC) , intent(out) :: integral, abserr
7530 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7531 integer(IK) , intent(out) , contiguous :: sindex(:)
7532 integer(IK) , intent(out) :: neval
7533 integer(IK) , intent(out) :: nint
7534 integer(IK) :: err
7535 end function
7536#endif
7537
7538#if RK3_ENABLED
7539 module function QAGD_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7541 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK3
7542#endif
7543 use pm_kind, only: RKC => RK3
7544 procedure(real(RKC)) :: getFunc
7545 real(RKC) , intent(in) :: lb
7546 type(pinf_type) , intent(in) :: ub
7547 real(RKC) , intent(in) :: abstol
7548 real(RKC) , intent(in) :: reltol
7549 type(GK51_type) , intent(in) :: qrule
7550 real(RKC) , intent(out) :: integral, abserr
7551 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7552 integer(IK) , intent(out) , contiguous :: sindex(:)
7553 integer(IK) , intent(out) :: neval
7554 integer(IK) , intent(out) :: nint
7555 integer(IK) :: err
7556 end function
7557#endif
7558
7559#if RK2_ENABLED
7560 module function QAGD_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK2
7563#endif
7564 use pm_kind, only: RKC => RK2
7565 procedure(real(RKC)) :: getFunc
7566 real(RKC) , intent(in) :: lb
7567 type(pinf_type) , intent(in) :: ub
7568 real(RKC) , intent(in) :: abstol
7569 real(RKC) , intent(in) :: reltol
7570 type(GK51_type) , intent(in) :: qrule
7571 real(RKC) , intent(out) :: integral, abserr
7572 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7573 integer(IK) , intent(out) , contiguous :: sindex(:)
7574 integer(IK) , intent(out) :: neval
7575 integer(IK) , intent(out) :: nint
7576 integer(IK) :: err
7577 end function
7578#endif
7579
7580#if RK1_ENABLED
7581 module function QAGD_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7583 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK1
7584#endif
7585 use pm_kind, only: RKC => RK1
7586 procedure(real(RKC)) :: getFunc
7587 real(RKC) , intent(in) :: lb
7588 type(pinf_type) , intent(in) :: ub
7589 real(RKC) , intent(in) :: abstol
7590 real(RKC) , intent(in) :: reltol
7591 type(GK51_type) , intent(in) :: qrule
7592 real(RKC) , intent(out) :: integral, abserr
7593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7594 integer(IK) , intent(out) , contiguous :: sindex(:)
7595 integer(IK) , intent(out) :: neval
7596 integer(IK) , intent(out) :: nint
7597 integer(IK) :: err
7598 end function
7599#endif
7600
7601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7602
7603#if RK5_ENABLED
7604 module function QAGD_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7606 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK5
7607#endif
7608 use pm_kind, only: RKC => RK5
7609 procedure(real(RKC)) :: getFunc
7610 type(ninf_type) , intent(in) :: lb
7611 real(RKC) , intent(in) :: ub
7612 real(RKC) , intent(in) :: abstol
7613 real(RKC) , intent(in) :: reltol
7614 type(GK51_type) , intent(in) :: qrule
7615 real(RKC) , intent(out) :: integral, abserr
7616 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7617 integer(IK) , intent(out) , contiguous :: sindex(:)
7618 integer(IK) , intent(out) :: neval
7619 integer(IK) , intent(out) :: nint
7620 integer(IK) :: err
7621 end function
7622#endif
7623
7624#if RK4_ENABLED
7625 module function QAGD_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7627 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK4
7628#endif
7629 use pm_kind, only: RKC => RK4
7630 procedure(real(RKC)) :: getFunc
7631 type(ninf_type) , intent(in) :: lb
7632 real(RKC) , intent(in) :: ub
7633 real(RKC) , intent(in) :: abstol
7634 real(RKC) , intent(in) :: reltol
7635 type(GK51_type) , intent(in) :: qrule
7636 real(RKC) , intent(out) :: integral, abserr
7637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7638 integer(IK) , intent(out) , contiguous :: sindex(:)
7639 integer(IK) , intent(out) :: neval
7640 integer(IK) , intent(out) :: nint
7641 integer(IK) :: err
7642 end function
7643#endif
7644
7645#if RK3_ENABLED
7646 module function QAGD_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7648 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK3
7649#endif
7650 use pm_kind, only: RKC => RK3
7651 procedure(real(RKC)) :: getFunc
7652 type(ninf_type) , intent(in) :: lb
7653 real(RKC) , intent(in) :: ub
7654 real(RKC) , intent(in) :: abstol
7655 real(RKC) , intent(in) :: reltol
7656 type(GK51_type) , intent(in) :: qrule
7657 real(RKC) , intent(out) :: integral, abserr
7658 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7659 integer(IK) , intent(out) , contiguous :: sindex(:)
7660 integer(IK) , intent(out) :: neval
7661 integer(IK) , intent(out) :: nint
7662 integer(IK) :: err
7663 end function
7664#endif
7665
7666#if RK2_ENABLED
7667 module function QAGD_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7669 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK2
7670#endif
7671 use pm_kind, only: RKC => RK2
7672 procedure(real(RKC)) :: getFunc
7673 type(ninf_type) , intent(in) :: lb
7674 real(RKC) , intent(in) :: ub
7675 real(RKC) , intent(in) :: abstol
7676 real(RKC) , intent(in) :: reltol
7677 type(GK51_type) , intent(in) :: qrule
7678 real(RKC) , intent(out) :: integral, abserr
7679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7680 integer(IK) , intent(out) , contiguous :: sindex(:)
7681 integer(IK) , intent(out) :: neval
7682 integer(IK) , intent(out) :: nint
7683 integer(IK) :: err
7684 end function
7685#endif
7686
7687#if RK1_ENABLED
7688 module function QAGD_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7690 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK1
7691#endif
7692 use pm_kind, only: RKC => RK1
7693 procedure(real(RKC)) :: getFunc
7694 type(ninf_type) , intent(in) :: lb
7695 real(RKC) , intent(in) :: ub
7696 real(RKC) , intent(in) :: abstol
7697 real(RKC) , intent(in) :: reltol
7698 type(GK51_type) , intent(in) :: qrule
7699 real(RKC) , intent(out) :: integral, abserr
7700 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7701 integer(IK) , intent(out) , contiguous :: sindex(:)
7702 integer(IK) , intent(out) :: neval
7703 integer(IK) , intent(out) :: nint
7704 integer(IK) :: err
7705 end function
7706#endif
7707
7708 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7709
7710#if RK5_ENABLED
7711 module function QAGD_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7713 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK5
7714#endif
7715 use pm_kind, only: RKC => RK5
7716 procedure(real(RKC)) :: getFunc
7717 type(ninf_type) , intent(in) :: lb
7718 type(pinf_type) , intent(in) :: ub
7719 real(RKC) , intent(in) :: abstol
7720 real(RKC) , intent(in) :: reltol
7721 type(GK51_type) , intent(in) :: qrule
7722 real(RKC) , intent(out) :: integral, abserr
7723 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7724 integer(IK) , intent(out) , contiguous :: sindex(:)
7725 integer(IK) , intent(out) :: neval
7726 integer(IK) , intent(out) :: nint
7727 integer(IK) :: err
7728 end function
7729#endif
7730
7731#if RK4_ENABLED
7732 module function QAGD_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7734 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK4
7735#endif
7736 use pm_kind, only: RKC => RK4
7737 procedure(real(RKC)) :: getFunc
7738 type(ninf_type) , intent(in) :: lb
7739 type(pinf_type) , intent(in) :: ub
7740 real(RKC) , intent(in) :: abstol
7741 real(RKC) , intent(in) :: reltol
7742 type(GK51_type) , intent(in) :: qrule
7743 real(RKC) , intent(out) :: integral, abserr
7744 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7745 integer(IK) , intent(out) , contiguous :: sindex(:)
7746 integer(IK) , intent(out) :: neval
7747 integer(IK) , intent(out) :: nint
7748 integer(IK) :: err
7749 end function
7750#endif
7751
7752#if RK3_ENABLED
7753 module function QAGD_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7755 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK3
7756#endif
7757 use pm_kind, only: RKC => RK3
7758 procedure(real(RKC)) :: getFunc
7759 type(ninf_type) , intent(in) :: lb
7760 type(pinf_type) , intent(in) :: ub
7761 real(RKC) , intent(in) :: abstol
7762 real(RKC) , intent(in) :: reltol
7763 type(GK51_type) , intent(in) :: qrule
7764 real(RKC) , intent(out) :: integral, abserr
7765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7766 integer(IK) , intent(out) , contiguous :: sindex(:)
7767 integer(IK) , intent(out) :: neval
7768 integer(IK) , intent(out) :: nint
7769 integer(IK) :: err
7770 end function
7771#endif
7772
7773#if RK2_ENABLED
7774 module function QAGD_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7776 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK2
7777#endif
7778 use pm_kind, only: RKC => RK2
7779 procedure(real(RKC)) :: getFunc
7780 type(ninf_type) , intent(in) :: lb
7781 type(pinf_type) , intent(in) :: ub
7782 real(RKC) , intent(in) :: abstol
7783 real(RKC) , intent(in) :: reltol
7784 type(GK51_type) , intent(in) :: qrule
7785 real(RKC) , intent(out) :: integral, abserr
7786 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7787 integer(IK) , intent(out) , contiguous :: sindex(:)
7788 integer(IK) , intent(out) :: neval
7789 integer(IK) , intent(out) :: nint
7790 integer(IK) :: err
7791 end function
7792#endif
7793
7794#if RK1_ENABLED
7795 module function QAGD_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7797 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK1
7798#endif
7799 use pm_kind, only: RKC => RK1
7800 procedure(real(RKC)) :: getFunc
7801 type(ninf_type) , intent(in) :: lb
7802 type(pinf_type) , intent(in) :: ub
7803 real(RKC) , intent(in) :: abstol
7804 real(RKC) , intent(in) :: reltol
7805 type(GK51_type) , intent(in) :: qrule
7806 real(RKC) , intent(out) :: integral, abserr
7807 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7808 integer(IK) , intent(out) , contiguous :: sindex(:)
7809 integer(IK) , intent(out) :: neval
7810 integer(IK) , intent(out) :: nint
7811 integer(IK) :: err
7812 end function
7813#endif
7814
7815 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7816
7817 end interface
7818
7819 ! QAGD_GK61
7820
7821 interface getQuadErr
7822
7823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7824
7825#if RK5_ENABLED
7826 module function QAGD_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK5
7829#endif
7830 use pm_kind, only: RKC => RK5
7831 procedure(real(RKC)) :: getFunc
7832 real(RKC) , intent(in) :: lb
7833 real(RKC) , intent(in) :: ub
7834 real(RKC) , intent(in) :: abstol
7835 real(RKC) , intent(in) :: reltol
7836 type(GK61_type) , intent(in) :: qrule
7837 real(RKC) , intent(out) :: integral, abserr
7838 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7839 integer(IK) , intent(out) , contiguous :: sindex(:)
7840 integer(IK) , intent(out) :: neval
7841 integer(IK) , intent(out) :: nint
7842 integer(IK) :: err
7843 end function
7844#endif
7845
7846#if RK4_ENABLED
7847 module function QAGD_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7849 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK4
7850#endif
7851 use pm_kind, only: RKC => RK4
7852 procedure(real(RKC)) :: getFunc
7853 real(RKC) , intent(in) :: lb
7854 real(RKC) , intent(in) :: ub
7855 real(RKC) , intent(in) :: abstol
7856 real(RKC) , intent(in) :: reltol
7857 type(GK61_type) , intent(in) :: qrule
7858 real(RKC) , intent(out) :: integral, abserr
7859 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7860 integer(IK) , intent(out) , contiguous :: sindex(:)
7861 integer(IK) , intent(out) :: neval
7862 integer(IK) , intent(out) :: nint
7863 integer(IK) :: err
7864 end function
7865#endif
7866
7867#if RK3_ENABLED
7868 module function QAGD_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7870 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK3
7871#endif
7872 use pm_kind, only: RKC => RK3
7873 procedure(real(RKC)) :: getFunc
7874 real(RKC) , intent(in) :: lb
7875 real(RKC) , intent(in) :: ub
7876 real(RKC) , intent(in) :: abstol
7877 real(RKC) , intent(in) :: reltol
7878 type(GK61_type) , intent(in) :: qrule
7879 real(RKC) , intent(out) :: integral, abserr
7880 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7881 integer(IK) , intent(out) , contiguous :: sindex(:)
7882 integer(IK) , intent(out) :: neval
7883 integer(IK) , intent(out) :: nint
7884 integer(IK) :: err
7885 end function
7886#endif
7887
7888#if RK2_ENABLED
7889 module function QAGD_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7891 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK2
7892#endif
7893 use pm_kind, only: RKC => RK2
7894 procedure(real(RKC)) :: getFunc
7895 real(RKC) , intent(in) :: lb
7896 real(RKC) , intent(in) :: ub
7897 real(RKC) , intent(in) :: abstol
7898 real(RKC) , intent(in) :: reltol
7899 type(GK61_type) , intent(in) :: qrule
7900 real(RKC) , intent(out) :: integral, abserr
7901 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7902 integer(IK) , intent(out) , contiguous :: sindex(:)
7903 integer(IK) , intent(out) :: neval
7904 integer(IK) , intent(out) :: nint
7905 integer(IK) :: err
7906 end function
7907#endif
7908
7909#if RK1_ENABLED
7910 module function QAGD_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7912 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK1
7913#endif
7914 use pm_kind, only: RKC => RK1
7915 procedure(real(RKC)) :: getFunc
7916 real(RKC) , intent(in) :: lb
7917 real(RKC) , intent(in) :: ub
7918 real(RKC) , intent(in) :: abstol
7919 real(RKC) , intent(in) :: reltol
7920 type(GK61_type) , intent(in) :: qrule
7921 real(RKC) , intent(out) :: integral, abserr
7922 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7923 integer(IK) , intent(out) , contiguous :: sindex(:)
7924 integer(IK) , intent(out) :: neval
7925 integer(IK) , intent(out) :: nint
7926 integer(IK) :: err
7927 end function
7928#endif
7929
7930 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7931
7932#if RK5_ENABLED
7933 module function QAGD_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7935 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK5
7936#endif
7937 use pm_kind, only: RKC => RK5
7938 procedure(real(RKC)) :: getFunc
7939 real(RKC) , intent(in) :: lb
7940 type(pinf_type) , intent(in) :: ub
7941 real(RKC) , intent(in) :: abstol
7942 real(RKC) , intent(in) :: reltol
7943 type(GK61_type) , intent(in) :: qrule
7944 real(RKC) , intent(out) :: integral, abserr
7945 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7946 integer(IK) , intent(out) , contiguous :: sindex(:)
7947 integer(IK) , intent(out) :: neval
7948 integer(IK) , intent(out) :: nint
7949 integer(IK) :: err
7950 end function
7951#endif
7952
7953#if RK4_ENABLED
7954 module function QAGD_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7956 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK4
7957#endif
7958 use pm_kind, only: RKC => RK4
7959 procedure(real(RKC)) :: getFunc
7960 real(RKC) , intent(in) :: lb
7961 type(pinf_type) , intent(in) :: ub
7962 real(RKC) , intent(in) :: abstol
7963 real(RKC) , intent(in) :: reltol
7964 type(GK61_type) , intent(in) :: qrule
7965 real(RKC) , intent(out) :: integral, abserr
7966 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7967 integer(IK) , intent(out) , contiguous :: sindex(:)
7968 integer(IK) , intent(out) :: neval
7969 integer(IK) , intent(out) :: nint
7970 integer(IK) :: err
7971 end function
7972#endif
7973
7974#if RK3_ENABLED
7975 module function QAGD_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7977 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK3
7978#endif
7979 use pm_kind, only: RKC => RK3
7980 procedure(real(RKC)) :: getFunc
7981 real(RKC) , intent(in) :: lb
7982 type(pinf_type) , intent(in) :: ub
7983 real(RKC) , intent(in) :: abstol
7984 real(RKC) , intent(in) :: reltol
7985 type(GK61_type) , intent(in) :: qrule
7986 real(RKC) , intent(out) :: integral, abserr
7987 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7988 integer(IK) , intent(out) , contiguous :: sindex(:)
7989 integer(IK) , intent(out) :: neval
7990 integer(IK) , intent(out) :: nint
7991 integer(IK) :: err
7992 end function
7993#endif
7994
7995#if RK2_ENABLED
7996 module function QAGD_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7998 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK2
7999#endif
8000 use pm_kind, only: RKC => RK2
8001 procedure(real(RKC)) :: getFunc
8002 real(RKC) , intent(in) :: lb
8003 type(pinf_type) , intent(in) :: ub
8004 real(RKC) , intent(in) :: abstol
8005 real(RKC) , intent(in) :: reltol
8006 type(GK61_type) , intent(in) :: qrule
8007 real(RKC) , intent(out) :: integral, abserr
8008 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8009 integer(IK) , intent(out) , contiguous :: sindex(:)
8010 integer(IK) , intent(out) :: neval
8011 integer(IK) , intent(out) :: nint
8012 integer(IK) :: err
8013 end function
8014#endif
8015
8016#if RK1_ENABLED
8017 module function QAGD_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8019 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK1
8020#endif
8021 use pm_kind, only: RKC => RK1
8022 procedure(real(RKC)) :: getFunc
8023 real(RKC) , intent(in) :: lb
8024 type(pinf_type) , intent(in) :: ub
8025 real(RKC) , intent(in) :: abstol
8026 real(RKC) , intent(in) :: reltol
8027 type(GK61_type) , intent(in) :: qrule
8028 real(RKC) , intent(out) :: integral, abserr
8029 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8030 integer(IK) , intent(out) , contiguous :: sindex(:)
8031 integer(IK) , intent(out) :: neval
8032 integer(IK) , intent(out) :: nint
8033 integer(IK) :: err
8034 end function
8035#endif
8036
8037 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8038
8039#if RK5_ENABLED
8040 module function QAGD_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8042 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK5
8043#endif
8044 use pm_kind, only: RKC => RK5
8045 procedure(real(RKC)) :: getFunc
8046 type(ninf_type) , intent(in) :: lb
8047 real(RKC) , intent(in) :: ub
8048 real(RKC) , intent(in) :: abstol
8049 real(RKC) , intent(in) :: reltol
8050 type(GK61_type) , intent(in) :: qrule
8051 real(RKC) , intent(out) :: integral, abserr
8052 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8053 integer(IK) , intent(out) , contiguous :: sindex(:)
8054 integer(IK) , intent(out) :: neval
8055 integer(IK) , intent(out) :: nint
8056 integer(IK) :: err
8057 end function
8058#endif
8059
8060#if RK4_ENABLED
8061 module function QAGD_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8063 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK4
8064#endif
8065 use pm_kind, only: RKC => RK4
8066 procedure(real(RKC)) :: getFunc
8067 type(ninf_type) , intent(in) :: lb
8068 real(RKC) , intent(in) :: ub
8069 real(RKC) , intent(in) :: abstol
8070 real(RKC) , intent(in) :: reltol
8071 type(GK61_type) , intent(in) :: qrule
8072 real(RKC) , intent(out) :: integral, abserr
8073 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8074 integer(IK) , intent(out) , contiguous :: sindex(:)
8075 integer(IK) , intent(out) :: neval
8076 integer(IK) , intent(out) :: nint
8077 integer(IK) :: err
8078 end function
8079#endif
8080
8081#if RK3_ENABLED
8082 module function QAGD_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8084 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK3
8085#endif
8086 use pm_kind, only: RKC => RK3
8087 procedure(real(RKC)) :: getFunc
8088 type(ninf_type) , intent(in) :: lb
8089 real(RKC) , intent(in) :: ub
8090 real(RKC) , intent(in) :: abstol
8091 real(RKC) , intent(in) :: reltol
8092 type(GK61_type) , intent(in) :: qrule
8093 real(RKC) , intent(out) :: integral, abserr
8094 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8095 integer(IK) , intent(out) , contiguous :: sindex(:)
8096 integer(IK) , intent(out) :: neval
8097 integer(IK) , intent(out) :: nint
8098 integer(IK) :: err
8099 end function
8100#endif
8101
8102#if RK2_ENABLED
8103 module function QAGD_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8105 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK2
8106#endif
8107 use pm_kind, only: RKC => RK2
8108 procedure(real(RKC)) :: getFunc
8109 type(ninf_type) , intent(in) :: lb
8110 real(RKC) , intent(in) :: ub
8111 real(RKC) , intent(in) :: abstol
8112 real(RKC) , intent(in) :: reltol
8113 type(GK61_type) , intent(in) :: qrule
8114 real(RKC) , intent(out) :: integral, abserr
8115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8116 integer(IK) , intent(out) , contiguous :: sindex(:)
8117 integer(IK) , intent(out) :: neval
8118 integer(IK) , intent(out) :: nint
8119 integer(IK) :: err
8120 end function
8121#endif
8122
8123#if RK1_ENABLED
8124 module function QAGD_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8126 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK1
8127#endif
8128 use pm_kind, only: RKC => RK1
8129 procedure(real(RKC)) :: getFunc
8130 type(ninf_type) , intent(in) :: lb
8131 real(RKC) , intent(in) :: ub
8132 real(RKC) , intent(in) :: abstol
8133 real(RKC) , intent(in) :: reltol
8134 type(GK61_type) , intent(in) :: qrule
8135 real(RKC) , intent(out) :: integral, abserr
8136 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8137 integer(IK) , intent(out) , contiguous :: sindex(:)
8138 integer(IK) , intent(out) :: neval
8139 integer(IK) , intent(out) :: nint
8140 integer(IK) :: err
8141 end function
8142#endif
8143
8144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8145
8146#if RK5_ENABLED
8147 module function QAGD_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8149 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK5
8150#endif
8151 use pm_kind, only: RKC => RK5
8152 procedure(real(RKC)) :: getFunc
8153 type(ninf_type) , intent(in) :: lb
8154 type(pinf_type) , intent(in) :: ub
8155 real(RKC) , intent(in) :: abstol
8156 real(RKC) , intent(in) :: reltol
8157 type(GK61_type) , intent(in) :: qrule
8158 real(RKC) , intent(out) :: integral, abserr
8159 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8160 integer(IK) , intent(out) , contiguous :: sindex(:)
8161 integer(IK) , intent(out) :: neval
8162 integer(IK) , intent(out) :: nint
8163 integer(IK) :: err
8164 end function
8165#endif
8166
8167#if RK4_ENABLED
8168 module function QAGD_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8170 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK4
8171#endif
8172 use pm_kind, only: RKC => RK4
8173 procedure(real(RKC)) :: getFunc
8174 type(ninf_type) , intent(in) :: lb
8175 type(pinf_type) , intent(in) :: ub
8176 real(RKC) , intent(in) :: abstol
8177 real(RKC) , intent(in) :: reltol
8178 type(GK61_type) , intent(in) :: qrule
8179 real(RKC) , intent(out) :: integral, abserr
8180 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8181 integer(IK) , intent(out) , contiguous :: sindex(:)
8182 integer(IK) , intent(out) :: neval
8183 integer(IK) , intent(out) :: nint
8184 integer(IK) :: err
8185 end function
8186#endif
8187
8188#if RK3_ENABLED
8189 module function QAGD_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8191 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK3
8192#endif
8193 use pm_kind, only: RKC => RK3
8194 procedure(real(RKC)) :: getFunc
8195 type(ninf_type) , intent(in) :: lb
8196 type(pinf_type) , intent(in) :: ub
8197 real(RKC) , intent(in) :: abstol
8198 real(RKC) , intent(in) :: reltol
8199 type(GK61_type) , intent(in) :: qrule
8200 real(RKC) , intent(out) :: integral, abserr
8201 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8202 integer(IK) , intent(out) , contiguous :: sindex(:)
8203 integer(IK) , intent(out) :: neval
8204 integer(IK) , intent(out) :: nint
8205 integer(IK) :: err
8206 end function
8207#endif
8208
8209#if RK2_ENABLED
8210 module function QAGD_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8212 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK2
8213#endif
8214 use pm_kind, only: RKC => RK2
8215 procedure(real(RKC)) :: getFunc
8216 type(ninf_type) , intent(in) :: lb
8217 type(pinf_type) , intent(in) :: ub
8218 real(RKC) , intent(in) :: abstol
8219 real(RKC) , intent(in) :: reltol
8220 type(GK61_type) , intent(in) :: qrule
8221 real(RKC) , intent(out) :: integral, abserr
8222 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8223 integer(IK) , intent(out) , contiguous :: sindex(:)
8224 integer(IK) , intent(out) :: neval
8225 integer(IK) , intent(out) :: nint
8226 integer(IK) :: err
8227 end function
8228#endif
8229
8230#if RK1_ENABLED
8231 module function QAGD_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8233 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK1
8234#endif
8235 use pm_kind, only: RKC => RK1
8236 procedure(real(RKC)) :: getFunc
8237 type(ninf_type) , intent(in) :: lb
8238 type(pinf_type) , intent(in) :: ub
8239 real(RKC) , intent(in) :: abstol
8240 real(RKC) , intent(in) :: reltol
8241 type(GK61_type) , intent(in) :: qrule
8242 real(RKC) , intent(out) :: integral, abserr
8243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8244 integer(IK) , intent(out) , contiguous :: sindex(:)
8245 integer(IK) , intent(out) :: neval
8246 integer(IK) , intent(out) :: nint
8247 integer(IK) :: err
8248 end function
8249#endif
8250
8251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8252
8253 end interface
8254
8255 ! QAGD_GKXX
8256
8257 interface getQuadErr
8258
8259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8260
8261#if RK5_ENABLED
8262 module function QAGD_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8264 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK5
8265#endif
8266 use pm_kind, only: RKC => RK5
8267 procedure(real(RKC)) :: getFunc
8268 real(RKC) , intent(in) :: lb
8269 real(RKC) , intent(in) :: ub
8270 real(RKC) , intent(in) :: abstol
8271 real(RKC) , intent(in) :: reltol
8272 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8273 real(RKC) , intent(out) :: integral, abserr
8274 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8275 integer(IK) , intent(out) , contiguous :: sindex(:)
8276 integer(IK) , intent(out) :: neval
8277 integer(IK) , intent(out) :: nint
8278 integer(IK) :: err
8279 end function
8280#endif
8281
8282#if RK4_ENABLED
8283 module function QAGD_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8285 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK4
8286#endif
8287 use pm_kind, only: RKC => RK4
8288 procedure(real(RKC)) :: getFunc
8289 real(RKC) , intent(in) :: lb
8290 real(RKC) , intent(in) :: ub
8291 real(RKC) , intent(in) :: abstol
8292 real(RKC) , intent(in) :: reltol
8293 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8294 real(RKC) , intent(out) :: integral, abserr
8295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8296 integer(IK) , intent(out) , contiguous :: sindex(:)
8297 integer(IK) , intent(out) :: neval
8298 integer(IK) , intent(out) :: nint
8299 integer(IK) :: err
8300 end function
8301#endif
8302
8303#if RK3_ENABLED
8304 module function QAGD_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK3
8307#endif
8308 use pm_kind, only: RKC => RK3
8309 procedure(real(RKC)) :: getFunc
8310 real(RKC) , intent(in) :: lb
8311 real(RKC) , intent(in) :: ub
8312 real(RKC) , intent(in) :: abstol
8313 real(RKC) , intent(in) :: reltol
8314 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8315 real(RKC) , intent(out) :: integral, abserr
8316 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8317 integer(IK) , intent(out) , contiguous :: sindex(:)
8318 integer(IK) , intent(out) :: neval
8319 integer(IK) , intent(out) :: nint
8320 integer(IK) :: err
8321 end function
8322#endif
8323
8324#if RK2_ENABLED
8325 module function QAGD_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8327 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK2
8328#endif
8329 use pm_kind, only: RKC => RK2
8330 procedure(real(RKC)) :: getFunc
8331 real(RKC) , intent(in) :: lb
8332 real(RKC) , intent(in) :: ub
8333 real(RKC) , intent(in) :: abstol
8334 real(RKC) , intent(in) :: reltol
8335 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8336 real(RKC) , intent(out) :: integral, abserr
8337 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8338 integer(IK) , intent(out) , contiguous :: sindex(:)
8339 integer(IK) , intent(out) :: neval
8340 integer(IK) , intent(out) :: nint
8341 integer(IK) :: err
8342 end function
8343#endif
8344
8345#if RK1_ENABLED
8346 module function QAGD_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8348 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK1
8349#endif
8350 use pm_kind, only: RKC => RK1
8351 procedure(real(RKC)) :: getFunc
8352 real(RKC) , intent(in) :: lb
8353 real(RKC) , intent(in) :: ub
8354 real(RKC) , intent(in) :: abstol
8355 real(RKC) , intent(in) :: reltol
8356 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8357 real(RKC) , intent(out) :: integral, abserr
8358 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8359 integer(IK) , intent(out) , contiguous :: sindex(:)
8360 integer(IK) , intent(out) :: neval
8361 integer(IK) , intent(out) :: nint
8362 integer(IK) :: err
8363 end function
8364#endif
8365
8366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8367
8368#if RK5_ENABLED
8369 module function QAGD_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8371 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK5
8372#endif
8373 use pm_kind, only: RKC => RK5
8374 procedure(real(RKC)) :: getFunc
8375 real(RKC) , intent(in) :: lb
8376 type(pinf_type) , intent(in) :: ub
8377 real(RKC) , intent(in) :: abstol
8378 real(RKC) , intent(in) :: reltol
8379 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8380 real(RKC) , intent(out) :: integral, abserr
8381 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8382 integer(IK) , intent(out) , contiguous :: sindex(:)
8383 integer(IK) , intent(out) :: neval
8384 integer(IK) , intent(out) :: nint
8385 integer(IK) :: err
8386 end function
8387#endif
8388
8389#if RK4_ENABLED
8390 module function QAGD_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8392 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK4
8393#endif
8394 use pm_kind, only: RKC => RK4
8395 procedure(real(RKC)) :: getFunc
8396 real(RKC) , intent(in) :: lb
8397 type(pinf_type) , intent(in) :: ub
8398 real(RKC) , intent(in) :: abstol
8399 real(RKC) , intent(in) :: reltol
8400 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8401 real(RKC) , intent(out) :: integral, abserr
8402 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8403 integer(IK) , intent(out) , contiguous :: sindex(:)
8404 integer(IK) , intent(out) :: neval
8405 integer(IK) , intent(out) :: nint
8406 integer(IK) :: err
8407 end function
8408#endif
8409
8410#if RK3_ENABLED
8411 module function QAGD_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8413 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK3
8414#endif
8415 use pm_kind, only: RKC => RK3
8416 procedure(real(RKC)) :: getFunc
8417 real(RKC) , intent(in) :: lb
8418 type(pinf_type) , intent(in) :: ub
8419 real(RKC) , intent(in) :: abstol
8420 real(RKC) , intent(in) :: reltol
8421 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8422 real(RKC) , intent(out) :: integral, abserr
8423 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8424 integer(IK) , intent(out) , contiguous :: sindex(:)
8425 integer(IK) , intent(out) :: neval
8426 integer(IK) , intent(out) :: nint
8427 integer(IK) :: err
8428 end function
8429#endif
8430
8431#if RK2_ENABLED
8432 module function QAGD_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8434 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK2
8435#endif
8436 use pm_kind, only: RKC => RK2
8437 procedure(real(RKC)) :: getFunc
8438 real(RKC) , intent(in) :: lb
8439 type(pinf_type) , intent(in) :: ub
8440 real(RKC) , intent(in) :: abstol
8441 real(RKC) , intent(in) :: reltol
8442 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8443 real(RKC) , intent(out) :: integral, abserr
8444 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8445 integer(IK) , intent(out) , contiguous :: sindex(:)
8446 integer(IK) , intent(out) :: neval
8447 integer(IK) , intent(out) :: nint
8448 integer(IK) :: err
8449 end function
8450#endif
8451
8452#if RK1_ENABLED
8453 module function QAGD_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8455 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK1
8456#endif
8457 use pm_kind, only: RKC => RK1
8458 procedure(real(RKC)) :: getFunc
8459 real(RKC) , intent(in) :: lb
8460 type(pinf_type) , intent(in) :: ub
8461 real(RKC) , intent(in) :: abstol
8462 real(RKC) , intent(in) :: reltol
8463 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8464 real(RKC) , intent(out) :: integral, abserr
8465 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8466 integer(IK) , intent(out) , contiguous :: sindex(:)
8467 integer(IK) , intent(out) :: neval
8468 integer(IK) , intent(out) :: nint
8469 integer(IK) :: err
8470 end function
8471#endif
8472
8473 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8474
8475#if RK5_ENABLED
8476 module function QAGD_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8478 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK5
8479#endif
8480 use pm_kind, only: RKC => RK5
8481 procedure(real(RKC)) :: getFunc
8482 type(ninf_type) , intent(in) :: lb
8483 real(RKC) , intent(in) :: ub
8484 real(RKC) , intent(in) :: abstol
8485 real(RKC) , intent(in) :: reltol
8486 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8487 real(RKC) , intent(out) :: integral, abserr
8488 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8489 integer(IK) , intent(out) , contiguous :: sindex(:)
8490 integer(IK) , intent(out) :: neval
8491 integer(IK) , intent(out) :: nint
8492 integer(IK) :: err
8493 end function
8494#endif
8495
8496#if RK4_ENABLED
8497 module function QAGD_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8499 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK4
8500#endif
8501 use pm_kind, only: RKC => RK4
8502 procedure(real(RKC)) :: getFunc
8503 type(ninf_type) , intent(in) :: lb
8504 real(RKC) , intent(in) :: ub
8505 real(RKC) , intent(in) :: abstol
8506 real(RKC) , intent(in) :: reltol
8507 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8508 real(RKC) , intent(out) :: integral, abserr
8509 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8510 integer(IK) , intent(out) , contiguous :: sindex(:)
8511 integer(IK) , intent(out) :: neval
8512 integer(IK) , intent(out) :: nint
8513 integer(IK) :: err
8514 end function
8515#endif
8516
8517#if RK3_ENABLED
8518 module function QAGD_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8520 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK3
8521#endif
8522 use pm_kind, only: RKC => RK3
8523 procedure(real(RKC)) :: getFunc
8524 type(ninf_type) , intent(in) :: lb
8525 real(RKC) , intent(in) :: ub
8526 real(RKC) , intent(in) :: abstol
8527 real(RKC) , intent(in) :: reltol
8528 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8529 real(RKC) , intent(out) :: integral, abserr
8530 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8531 integer(IK) , intent(out) , contiguous :: sindex(:)
8532 integer(IK) , intent(out) :: neval
8533 integer(IK) , intent(out) :: nint
8534 integer(IK) :: err
8535 end function
8536#endif
8537
8538#if RK2_ENABLED
8539 module function QAGD_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8541 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK2
8542#endif
8543 use pm_kind, only: RKC => RK2
8544 procedure(real(RKC)) :: getFunc
8545 type(ninf_type) , intent(in) :: lb
8546 real(RKC) , intent(in) :: ub
8547 real(RKC) , intent(in) :: abstol
8548 real(RKC) , intent(in) :: reltol
8549 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8550 real(RKC) , intent(out) :: integral, abserr
8551 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8552 integer(IK) , intent(out) , contiguous :: sindex(:)
8553 integer(IK) , intent(out) :: neval
8554 integer(IK) , intent(out) :: nint
8555 integer(IK) :: err
8556 end function
8557#endif
8558
8559#if RK1_ENABLED
8560 module function QAGD_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK1
8563#endif
8564 use pm_kind, only: RKC => RK1
8565 procedure(real(RKC)) :: getFunc
8566 type(ninf_type) , intent(in) :: lb
8567 real(RKC) , intent(in) :: ub
8568 real(RKC) , intent(in) :: abstol
8569 real(RKC) , intent(in) :: reltol
8570 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8571 real(RKC) , intent(out) :: integral, abserr
8572 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8573 integer(IK) , intent(out) , contiguous :: sindex(:)
8574 integer(IK) , intent(out) :: neval
8575 integer(IK) , intent(out) :: nint
8576 integer(IK) :: err
8577 end function
8578#endif
8579
8580 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8581
8582#if RK5_ENABLED
8583 module function QAGD_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8585 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK5
8586#endif
8587 use pm_kind, only: RKC => RK5
8588 procedure(real(RKC)) :: getFunc
8589 type(ninf_type) , intent(in) :: lb
8590 type(pinf_type) , intent(in) :: ub
8591 real(RKC) , intent(in) :: abstol
8592 real(RKC) , intent(in) :: reltol
8593 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8594 real(RKC) , intent(out) :: integral, abserr
8595 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8596 integer(IK) , intent(out) , contiguous :: sindex(:)
8597 integer(IK) , intent(out) :: neval
8598 integer(IK) , intent(out) :: nint
8599 integer(IK) :: err
8600 end function
8601#endif
8602
8603#if RK4_ENABLED
8604 module function QAGD_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8606 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK4
8607#endif
8608 use pm_kind, only: RKC => RK4
8609 procedure(real(RKC)) :: getFunc
8610 type(ninf_type) , intent(in) :: lb
8611 type(pinf_type) , intent(in) :: ub
8612 real(RKC) , intent(in) :: abstol
8613 real(RKC) , intent(in) :: reltol
8614 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8615 real(RKC) , intent(out) :: integral, abserr
8616 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8617 integer(IK) , intent(out) , contiguous :: sindex(:)
8618 integer(IK) , intent(out) :: neval
8619 integer(IK) , intent(out) :: nint
8620 integer(IK) :: err
8621 end function
8622#endif
8623
8624#if RK3_ENABLED
8625 module function QAGD_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8627 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK3
8628#endif
8629 use pm_kind, only: RKC => RK3
8630 procedure(real(RKC)) :: getFunc
8631 type(ninf_type) , intent(in) :: lb
8632 type(pinf_type) , intent(in) :: ub
8633 real(RKC) , intent(in) :: abstol
8634 real(RKC) , intent(in) :: reltol
8635 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8636 real(RKC) , intent(out) :: integral, abserr
8637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8638 integer(IK) , intent(out) , contiguous :: sindex(:)
8639 integer(IK) , intent(out) :: neval
8640 integer(IK) , intent(out) :: nint
8641 integer(IK) :: err
8642 end function
8643#endif
8644
8645#if RK2_ENABLED
8646 module function QAGD_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8648 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK2
8649#endif
8650 use pm_kind, only: RKC => RK2
8651 procedure(real(RKC)) :: getFunc
8652 type(ninf_type) , intent(in) :: lb
8653 type(pinf_type) , intent(in) :: ub
8654 real(RKC) , intent(in) :: abstol
8655 real(RKC) , intent(in) :: reltol
8656 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8657 real(RKC) , intent(out) :: integral, abserr
8658 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8659 integer(IK) , intent(out) , contiguous :: sindex(:)
8660 integer(IK) , intent(out) :: neval
8661 integer(IK) , intent(out) :: nint
8662 integer(IK) :: err
8663 end function
8664#endif
8665
8666#if RK1_ENABLED
8667 module function QAGD_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8669 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK1
8670#endif
8671 use pm_kind, only: RKC => RK1
8672 procedure(real(RKC)) :: getFunc
8673 type(ninf_type) , intent(in) :: lb
8674 type(pinf_type) , intent(in) :: ub
8675 real(RKC) , intent(in) :: abstol
8676 real(RKC) , intent(in) :: reltol
8677 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8678 real(RKC) , intent(out) :: integral, abserr
8679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8680 integer(IK) , intent(out) , contiguous :: sindex(:)
8681 integer(IK) , intent(out) :: neval
8682 integer(IK) , intent(out) :: nint
8683 integer(IK) :: err
8684 end function
8685#endif
8686
8687 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8688
8689 end interface
8690
8691!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8692
8693 ! QAGS_GK15
8694
8695 interface getQuadErr
8696
8697 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8698
8699#if RK5_ENABLED
8700 module function QAGS_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK5
8703#endif
8704 use pm_kind, only: RKC => RK5
8705 procedure(real(RKC)) :: getFunc
8706 real(RKC) , intent(in) :: lb
8707 real(RKC) , intent(in) :: ub
8708 real(RKC) , intent(in) :: abstol
8709 real(RKC) , intent(in) :: reltol
8710 type(GK15_type) , intent(in) :: qrule
8711 type(weps_type) , intent(in) :: help
8712 real(RKC) , intent(out) :: integral, abserr
8713 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8714 integer(IK) , intent(out) , contiguous :: sindex(:)
8715 integer(IK) , intent(out) :: neval
8716 integer(IK) , intent(out) :: nint
8717 integer(IK) :: err
8718 end function
8719#endif
8720
8721#if RK4_ENABLED
8722 module function QAGS_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8724 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK4
8725#endif
8726 use pm_kind, only: RKC => RK4
8727 procedure(real(RKC)) :: getFunc
8728 real(RKC) , intent(in) :: lb
8729 real(RKC) , intent(in) :: ub
8730 real(RKC) , intent(in) :: abstol
8731 real(RKC) , intent(in) :: reltol
8732 type(GK15_type) , intent(in) :: qrule
8733 type(weps_type) , intent(in) :: help
8734 real(RKC) , intent(out) :: integral, abserr
8735 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8736 integer(IK) , intent(out) , contiguous :: sindex(:)
8737 integer(IK) , intent(out) :: neval
8738 integer(IK) , intent(out) :: nint
8739 integer(IK) :: err
8740 end function
8741#endif
8742
8743#if RK3_ENABLED
8744 module function QAGS_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK3
8747#endif
8748 use pm_kind, only: RKC => RK3
8749 procedure(real(RKC)) :: getFunc
8750 real(RKC) , intent(in) :: lb
8751 real(RKC) , intent(in) :: ub
8752 real(RKC) , intent(in) :: abstol
8753 real(RKC) , intent(in) :: reltol
8754 type(GK15_type) , intent(in) :: qrule
8755 type(weps_type) , intent(in) :: help
8756 real(RKC) , intent(out) :: integral, abserr
8757 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8758 integer(IK) , intent(out) , contiguous :: sindex(:)
8759 integer(IK) , intent(out) :: neval
8760 integer(IK) , intent(out) :: nint
8761 integer(IK) :: err
8762 end function
8763#endif
8764
8765#if RK2_ENABLED
8766 module function QAGS_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK2
8769#endif
8770 use pm_kind, only: RKC => RK2
8771 procedure(real(RKC)) :: getFunc
8772 real(RKC) , intent(in) :: lb
8773 real(RKC) , intent(in) :: ub
8774 real(RKC) , intent(in) :: abstol
8775 real(RKC) , intent(in) :: reltol
8776 type(GK15_type) , intent(in) :: qrule
8777 type(weps_type) , intent(in) :: help
8778 real(RKC) , intent(out) :: integral, abserr
8779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8780 integer(IK) , intent(out) , contiguous :: sindex(:)
8781 integer(IK) , intent(out) :: neval
8782 integer(IK) , intent(out) :: nint
8783 integer(IK) :: err
8784 end function
8785#endif
8786
8787#if RK1_ENABLED
8788 module function QAGS_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8790 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK1
8791#endif
8792 use pm_kind, only: RKC => RK1
8793 procedure(real(RKC)) :: getFunc
8794 real(RKC) , intent(in) :: lb
8795 real(RKC) , intent(in) :: ub
8796 real(RKC) , intent(in) :: abstol
8797 real(RKC) , intent(in) :: reltol
8798 type(GK15_type) , intent(in) :: qrule
8799 type(weps_type) , intent(in) :: help
8800 real(RKC) , intent(out) :: integral, abserr
8801 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8802 integer(IK) , intent(out) , contiguous :: sindex(:)
8803 integer(IK) , intent(out) :: neval
8804 integer(IK) , intent(out) :: nint
8805 integer(IK) :: err
8806 end function
8807#endif
8808
8809 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8810
8811#if RK5_ENABLED
8812 module function QAGS_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK5
8815#endif
8816 use pm_kind, only: RKC => RK5
8817 procedure(real(RKC)) :: getFunc
8818 real(RKC) , intent(in) :: lb
8819 type(pinf_type) , intent(in) :: ub
8820 real(RKC) , intent(in) :: abstol
8821 real(RKC) , intent(in) :: reltol
8822 type(GK15_type) , intent(in) :: qrule
8823 type(weps_type) , intent(in) :: help
8824 real(RKC) , intent(out) :: integral, abserr
8825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8826 integer(IK) , intent(out) , contiguous :: sindex(:)
8827 integer(IK) , intent(out) :: neval
8828 integer(IK) , intent(out) :: nint
8829 integer(IK) :: err
8830 end function
8831#endif
8832
8833#if RK4_ENABLED
8834 module function QAGS_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK4
8837#endif
8838 use pm_kind, only: RKC => RK4
8839 procedure(real(RKC)) :: getFunc
8840 real(RKC) , intent(in) :: lb
8841 type(pinf_type) , intent(in) :: ub
8842 real(RKC) , intent(in) :: abstol
8843 real(RKC) , intent(in) :: reltol
8844 type(GK15_type) , intent(in) :: qrule
8845 type(weps_type) , intent(in) :: help
8846 real(RKC) , intent(out) :: integral, abserr
8847 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8848 integer(IK) , intent(out) , contiguous :: sindex(:)
8849 integer(IK) , intent(out) :: neval
8850 integer(IK) , intent(out) :: nint
8851 integer(IK) :: err
8852 end function
8853#endif
8854
8855#if RK3_ENABLED
8856 module function QAGS_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK3
8859#endif
8860 use pm_kind, only: RKC => RK3
8861 procedure(real(RKC)) :: getFunc
8862 real(RKC) , intent(in) :: lb
8863 type(pinf_type) , intent(in) :: ub
8864 real(RKC) , intent(in) :: abstol
8865 real(RKC) , intent(in) :: reltol
8866 type(GK15_type) , intent(in) :: qrule
8867 type(weps_type) , intent(in) :: help
8868 real(RKC) , intent(out) :: integral, abserr
8869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8870 integer(IK) , intent(out) , contiguous :: sindex(:)
8871 integer(IK) , intent(out) :: neval
8872 integer(IK) , intent(out) :: nint
8873 integer(IK) :: err
8874 end function
8875#endif
8876
8877#if RK2_ENABLED
8878 module function QAGS_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK2
8881#endif
8882 use pm_kind, only: RKC => RK2
8883 procedure(real(RKC)) :: getFunc
8884 real(RKC) , intent(in) :: lb
8885 type(pinf_type) , intent(in) :: ub
8886 real(RKC) , intent(in) :: abstol
8887 real(RKC) , intent(in) :: reltol
8888 type(GK15_type) , intent(in) :: qrule
8889 type(weps_type) , intent(in) :: help
8890 real(RKC) , intent(out) :: integral, abserr
8891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8892 integer(IK) , intent(out) , contiguous :: sindex(:)
8893 integer(IK) , intent(out) :: neval
8894 integer(IK) , intent(out) :: nint
8895 integer(IK) :: err
8896 end function
8897#endif
8898
8899#if RK1_ENABLED
8900 module function QAGS_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8902 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK1
8903#endif
8904 use pm_kind, only: RKC => RK1
8905 procedure(real(RKC)) :: getFunc
8906 real(RKC) , intent(in) :: lb
8907 type(pinf_type) , intent(in) :: ub
8908 real(RKC) , intent(in) :: abstol
8909 real(RKC) , intent(in) :: reltol
8910 type(GK15_type) , intent(in) :: qrule
8911 type(weps_type) , intent(in) :: help
8912 real(RKC) , intent(out) :: integral, abserr
8913 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8914 integer(IK) , intent(out) , contiguous :: sindex(:)
8915 integer(IK) , intent(out) :: neval
8916 integer(IK) , intent(out) :: nint
8917 integer(IK) :: err
8918 end function
8919#endif
8920
8921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8922
8923#if RK5_ENABLED
8924 module function QAGS_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8926 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK5
8927#endif
8928 use pm_kind, only: RKC => RK5
8929 procedure(real(RKC)) :: getFunc
8930 type(ninf_type) , intent(in) :: lb
8931 real(RKC) , intent(in) :: ub
8932 real(RKC) , intent(in) :: abstol
8933 real(RKC) , intent(in) :: reltol
8934 type(GK15_type) , intent(in) :: qrule
8935 type(weps_type) , intent(in) :: help
8936 real(RKC) , intent(out) :: integral, abserr
8937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8938 integer(IK) , intent(out) , contiguous :: sindex(:)
8939 integer(IK) , intent(out) :: neval
8940 integer(IK) , intent(out) :: nint
8941 integer(IK) :: err
8942 end function
8943#endif
8944
8945#if RK4_ENABLED
8946 module function QAGS_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8948 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK4
8949#endif
8950 use pm_kind, only: RKC => RK4
8951 procedure(real(RKC)) :: getFunc
8952 type(ninf_type) , intent(in) :: lb
8953 real(RKC) , intent(in) :: ub
8954 real(RKC) , intent(in) :: abstol
8955 real(RKC) , intent(in) :: reltol
8956 type(GK15_type) , intent(in) :: qrule
8957 type(weps_type) , intent(in) :: help
8958 real(RKC) , intent(out) :: integral, abserr
8959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8960 integer(IK) , intent(out) , contiguous :: sindex(:)
8961 integer(IK) , intent(out) :: neval
8962 integer(IK) , intent(out) :: nint
8963 integer(IK) :: err
8964 end function
8965#endif
8966
8967#if RK3_ENABLED
8968 module function QAGS_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK3
8971#endif
8972 use pm_kind, only: RKC => RK3
8973 procedure(real(RKC)) :: getFunc
8974 type(ninf_type) , intent(in) :: lb
8975 real(RKC) , intent(in) :: ub
8976 real(RKC) , intent(in) :: abstol
8977 real(RKC) , intent(in) :: reltol
8978 type(GK15_type) , intent(in) :: qrule
8979 type(weps_type) , intent(in) :: help
8980 real(RKC) , intent(out) :: integral, abserr
8981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8982 integer(IK) , intent(out) , contiguous :: sindex(:)
8983 integer(IK) , intent(out) :: neval
8984 integer(IK) , intent(out) :: nint
8985 integer(IK) :: err
8986 end function
8987#endif
8988
8989#if RK2_ENABLED
8990 module function QAGS_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8992 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK2
8993#endif
8994 use pm_kind, only: RKC => RK2
8995 procedure(real(RKC)) :: getFunc
8996 type(ninf_type) , intent(in) :: lb
8997 real(RKC) , intent(in) :: ub
8998 real(RKC) , intent(in) :: abstol
8999 real(RKC) , intent(in) :: reltol
9000 type(GK15_type) , intent(in) :: qrule
9001 type(weps_type) , intent(in) :: help
9002 real(RKC) , intent(out) :: integral, abserr
9003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9004 integer(IK) , intent(out) , contiguous :: sindex(:)
9005 integer(IK) , intent(out) :: neval
9006 integer(IK) , intent(out) :: nint
9007 integer(IK) :: err
9008 end function
9009#endif
9010
9011#if RK1_ENABLED
9012 module function QAGS_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK1
9015#endif
9016 use pm_kind, only: RKC => RK1
9017 procedure(real(RKC)) :: getFunc
9018 type(ninf_type) , intent(in) :: lb
9019 real(RKC) , intent(in) :: ub
9020 real(RKC) , intent(in) :: abstol
9021 real(RKC) , intent(in) :: reltol
9022 type(GK15_type) , intent(in) :: qrule
9023 type(weps_type) , intent(in) :: help
9024 real(RKC) , intent(out) :: integral, abserr
9025 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9026 integer(IK) , intent(out) , contiguous :: sindex(:)
9027 integer(IK) , intent(out) :: neval
9028 integer(IK) , intent(out) :: nint
9029 integer(IK) :: err
9030 end function
9031#endif
9032
9033 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9034
9035#if RK5_ENABLED
9036 module function QAGS_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9038 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK5
9039#endif
9040 use pm_kind, only: RKC => RK5
9041 procedure(real(RKC)) :: getFunc
9042 type(ninf_type) , intent(in) :: lb
9043 type(pinf_type) , intent(in) :: ub
9044 real(RKC) , intent(in) :: abstol
9045 real(RKC) , intent(in) :: reltol
9046 type(GK15_type) , intent(in) :: qrule
9047 type(weps_type) , intent(in) :: help
9048 real(RKC) , intent(out) :: integral, abserr
9049 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9050 integer(IK) , intent(out) , contiguous :: sindex(:)
9051 integer(IK) , intent(out) :: neval
9052 integer(IK) , intent(out) :: nint
9053 integer(IK) :: err
9054 end function
9055#endif
9056
9057#if RK4_ENABLED
9058 module function QAGS_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9060 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK4
9061#endif
9062 use pm_kind, only: RKC => RK4
9063 procedure(real(RKC)) :: getFunc
9064 type(ninf_type) , intent(in) :: lb
9065 type(pinf_type) , intent(in) :: ub
9066 real(RKC) , intent(in) :: abstol
9067 real(RKC) , intent(in) :: reltol
9068 type(GK15_type) , intent(in) :: qrule
9069 type(weps_type) , intent(in) :: help
9070 real(RKC) , intent(out) :: integral, abserr
9071 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9072 integer(IK) , intent(out) , contiguous :: sindex(:)
9073 integer(IK) , intent(out) :: neval
9074 integer(IK) , intent(out) :: nint
9075 integer(IK) :: err
9076 end function
9077#endif
9078
9079#if RK3_ENABLED
9080 module function QAGS_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9082 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK3
9083#endif
9084 use pm_kind, only: RKC => RK3
9085 procedure(real(RKC)) :: getFunc
9086 type(ninf_type) , intent(in) :: lb
9087 type(pinf_type) , intent(in) :: ub
9088 real(RKC) , intent(in) :: abstol
9089 real(RKC) , intent(in) :: reltol
9090 type(GK15_type) , intent(in) :: qrule
9091 type(weps_type) , intent(in) :: help
9092 real(RKC) , intent(out) :: integral, abserr
9093 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9094 integer(IK) , intent(out) , contiguous :: sindex(:)
9095 integer(IK) , intent(out) :: neval
9096 integer(IK) , intent(out) :: nint
9097 integer(IK) :: err
9098 end function
9099#endif
9100
9101#if RK2_ENABLED
9102 module function QAGS_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9104 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK2
9105#endif
9106 use pm_kind, only: RKC => RK2
9107 procedure(real(RKC)) :: getFunc
9108 type(ninf_type) , intent(in) :: lb
9109 type(pinf_type) , intent(in) :: ub
9110 real(RKC) , intent(in) :: abstol
9111 real(RKC) , intent(in) :: reltol
9112 type(GK15_type) , intent(in) :: qrule
9113 type(weps_type) , intent(in) :: help
9114 real(RKC) , intent(out) :: integral, abserr
9115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9116 integer(IK) , intent(out) , contiguous :: sindex(:)
9117 integer(IK) , intent(out) :: neval
9118 integer(IK) , intent(out) :: nint
9119 integer(IK) :: err
9120 end function
9121#endif
9122
9123#if RK1_ENABLED
9124 module function QAGS_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9126 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK1
9127#endif
9128 use pm_kind, only: RKC => RK1
9129 procedure(real(RKC)) :: getFunc
9130 type(ninf_type) , intent(in) :: lb
9131 type(pinf_type) , intent(in) :: ub
9132 real(RKC) , intent(in) :: abstol
9133 real(RKC) , intent(in) :: reltol
9134 type(GK15_type) , intent(in) :: qrule
9135 type(weps_type) , intent(in) :: help
9136 real(RKC) , intent(out) :: integral, abserr
9137 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9138 integer(IK) , intent(out) , contiguous :: sindex(:)
9139 integer(IK) , intent(out) :: neval
9140 integer(IK) , intent(out) :: nint
9141 integer(IK) :: err
9142 end function
9143#endif
9144
9145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9146
9147 end interface
9148
9149 ! QAGS_GK21
9150
9151 interface getQuadErr
9152
9153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9154
9155#if RK5_ENABLED
9156 module function QAGS_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK5
9159#endif
9160 use pm_kind, only: RKC => RK5
9161 procedure(real(RKC)) :: getFunc
9162 real(RKC) , intent(in) :: lb
9163 real(RKC) , intent(in) :: ub
9164 real(RKC) , intent(in) :: abstol
9165 real(RKC) , intent(in) :: reltol
9166 type(GK21_type) , intent(in) :: qrule
9167 type(weps_type) , intent(in) :: help
9168 real(RKC) , intent(out) :: integral, abserr
9169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9170 integer(IK) , intent(out) , contiguous :: sindex(:)
9171 integer(IK) , intent(out) :: neval
9172 integer(IK) , intent(out) :: nint
9173 integer(IK) :: err
9174 end function
9175#endif
9176
9177#if RK4_ENABLED
9178 module function QAGS_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9180 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK4
9181#endif
9182 use pm_kind, only: RKC => RK4
9183 procedure(real(RKC)) :: getFunc
9184 real(RKC) , intent(in) :: lb
9185 real(RKC) , intent(in) :: ub
9186 real(RKC) , intent(in) :: abstol
9187 real(RKC) , intent(in) :: reltol
9188 type(GK21_type) , intent(in) :: qrule
9189 type(weps_type) , intent(in) :: help
9190 real(RKC) , intent(out) :: integral, abserr
9191 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9192 integer(IK) , intent(out) , contiguous :: sindex(:)
9193 integer(IK) , intent(out) :: neval
9194 integer(IK) , intent(out) :: nint
9195 integer(IK) :: err
9196 end function
9197#endif
9198
9199#if RK3_ENABLED
9200 module function QAGS_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK3
9203#endif
9204 use pm_kind, only: RKC => RK3
9205 procedure(real(RKC)) :: getFunc
9206 real(RKC) , intent(in) :: lb
9207 real(RKC) , intent(in) :: ub
9208 real(RKC) , intent(in) :: abstol
9209 real(RKC) , intent(in) :: reltol
9210 type(GK21_type) , intent(in) :: qrule
9211 type(weps_type) , intent(in) :: help
9212 real(RKC) , intent(out) :: integral, abserr
9213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9214 integer(IK) , intent(out) , contiguous :: sindex(:)
9215 integer(IK) , intent(out) :: neval
9216 integer(IK) , intent(out) :: nint
9217 integer(IK) :: err
9218 end function
9219#endif
9220
9221#if RK2_ENABLED
9222 module function QAGS_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK2
9225#endif
9226 use pm_kind, only: RKC => RK2
9227 procedure(real(RKC)) :: getFunc
9228 real(RKC) , intent(in) :: lb
9229 real(RKC) , intent(in) :: ub
9230 real(RKC) , intent(in) :: abstol
9231 real(RKC) , intent(in) :: reltol
9232 type(GK21_type) , intent(in) :: qrule
9233 type(weps_type) , intent(in) :: help
9234 real(RKC) , intent(out) :: integral, abserr
9235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9236 integer(IK) , intent(out) , contiguous :: sindex(:)
9237 integer(IK) , intent(out) :: neval
9238 integer(IK) , intent(out) :: nint
9239 integer(IK) :: err
9240 end function
9241#endif
9242
9243#if RK1_ENABLED
9244 module function QAGS_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9246 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK1
9247#endif
9248 use pm_kind, only: RKC => RK1
9249 procedure(real(RKC)) :: getFunc
9250 real(RKC) , intent(in) :: lb
9251 real(RKC) , intent(in) :: ub
9252 real(RKC) , intent(in) :: abstol
9253 real(RKC) , intent(in) :: reltol
9254 type(GK21_type) , intent(in) :: qrule
9255 type(weps_type) , intent(in) :: help
9256 real(RKC) , intent(out) :: integral, abserr
9257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9258 integer(IK) , intent(out) , contiguous :: sindex(:)
9259 integer(IK) , intent(out) :: neval
9260 integer(IK) , intent(out) :: nint
9261 integer(IK) :: err
9262 end function
9263#endif
9264
9265 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9266
9267#if RK5_ENABLED
9268 module function QAGS_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK5
9271#endif
9272 use pm_kind, only: RKC => RK5
9273 procedure(real(RKC)) :: getFunc
9274 real(RKC) , intent(in) :: lb
9275 type(pinf_type) , intent(in) :: ub
9276 real(RKC) , intent(in) :: abstol
9277 real(RKC) , intent(in) :: reltol
9278 type(GK21_type) , intent(in) :: qrule
9279 type(weps_type) , intent(in) :: help
9280 real(RKC) , intent(out) :: integral, abserr
9281 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9282 integer(IK) , intent(out) , contiguous :: sindex(:)
9283 integer(IK) , intent(out) :: neval
9284 integer(IK) , intent(out) :: nint
9285 integer(IK) :: err
9286 end function
9287#endif
9288
9289#if RK4_ENABLED
9290 module function QAGS_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9292 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK4
9293#endif
9294 use pm_kind, only: RKC => RK4
9295 procedure(real(RKC)) :: getFunc
9296 real(RKC) , intent(in) :: lb
9297 type(pinf_type) , intent(in) :: ub
9298 real(RKC) , intent(in) :: abstol
9299 real(RKC) , intent(in) :: reltol
9300 type(GK21_type) , intent(in) :: qrule
9301 type(weps_type) , intent(in) :: help
9302 real(RKC) , intent(out) :: integral, abserr
9303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9304 integer(IK) , intent(out) , contiguous :: sindex(:)
9305 integer(IK) , intent(out) :: neval
9306 integer(IK) , intent(out) :: nint
9307 integer(IK) :: err
9308 end function
9309#endif
9310
9311#if RK3_ENABLED
9312 module function QAGS_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK3
9315#endif
9316 use pm_kind, only: RKC => RK3
9317 procedure(real(RKC)) :: getFunc
9318 real(RKC) , intent(in) :: lb
9319 type(pinf_type) , intent(in) :: ub
9320 real(RKC) , intent(in) :: abstol
9321 real(RKC) , intent(in) :: reltol
9322 type(GK21_type) , intent(in) :: qrule
9323 type(weps_type) , intent(in) :: help
9324 real(RKC) , intent(out) :: integral, abserr
9325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9326 integer(IK) , intent(out) , contiguous :: sindex(:)
9327 integer(IK) , intent(out) :: neval
9328 integer(IK) , intent(out) :: nint
9329 integer(IK) :: err
9330 end function
9331#endif
9332
9333#if RK2_ENABLED
9334 module function QAGS_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK2
9337#endif
9338 use pm_kind, only: RKC => RK2
9339 procedure(real(RKC)) :: getFunc
9340 real(RKC) , intent(in) :: lb
9341 type(pinf_type) , intent(in) :: ub
9342 real(RKC) , intent(in) :: abstol
9343 real(RKC) , intent(in) :: reltol
9344 type(GK21_type) , intent(in) :: qrule
9345 type(weps_type) , intent(in) :: help
9346 real(RKC) , intent(out) :: integral, abserr
9347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9348 integer(IK) , intent(out) , contiguous :: sindex(:)
9349 integer(IK) , intent(out) :: neval
9350 integer(IK) , intent(out) :: nint
9351 integer(IK) :: err
9352 end function
9353#endif
9354
9355#if RK1_ENABLED
9356 module function QAGS_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK1
9359#endif
9360 use pm_kind, only: RKC => RK1
9361 procedure(real(RKC)) :: getFunc
9362 real(RKC) , intent(in) :: lb
9363 type(pinf_type) , intent(in) :: ub
9364 real(RKC) , intent(in) :: abstol
9365 real(RKC) , intent(in) :: reltol
9366 type(GK21_type) , intent(in) :: qrule
9367 type(weps_type) , intent(in) :: help
9368 real(RKC) , intent(out) :: integral, abserr
9369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9370 integer(IK) , intent(out) , contiguous :: sindex(:)
9371 integer(IK) , intent(out) :: neval
9372 integer(IK) , intent(out) :: nint
9373 integer(IK) :: err
9374 end function
9375#endif
9376
9377 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9378
9379#if RK5_ENABLED
9380 module function QAGS_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9382 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK5
9383#endif
9384 use pm_kind, only: RKC => RK5
9385 procedure(real(RKC)) :: getFunc
9386 type(ninf_type) , intent(in) :: lb
9387 real(RKC) , intent(in) :: ub
9388 real(RKC) , intent(in) :: abstol
9389 real(RKC) , intent(in) :: reltol
9390 type(GK21_type) , intent(in) :: qrule
9391 type(weps_type) , intent(in) :: help
9392 real(RKC) , intent(out) :: integral, abserr
9393 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9394 integer(IK) , intent(out) , contiguous :: sindex(:)
9395 integer(IK) , intent(out) :: neval
9396 integer(IK) , intent(out) :: nint
9397 integer(IK) :: err
9398 end function
9399#endif
9400
9401#if RK4_ENABLED
9402 module function QAGS_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9404 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK4
9405#endif
9406 use pm_kind, only: RKC => RK4
9407 procedure(real(RKC)) :: getFunc
9408 type(ninf_type) , intent(in) :: lb
9409 real(RKC) , intent(in) :: ub
9410 real(RKC) , intent(in) :: abstol
9411 real(RKC) , intent(in) :: reltol
9412 type(GK21_type) , intent(in) :: qrule
9413 type(weps_type) , intent(in) :: help
9414 real(RKC) , intent(out) :: integral, abserr
9415 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9416 integer(IK) , intent(out) , contiguous :: sindex(:)
9417 integer(IK) , intent(out) :: neval
9418 integer(IK) , intent(out) :: nint
9419 integer(IK) :: err
9420 end function
9421#endif
9422
9423#if RK3_ENABLED
9424 module function QAGS_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK3
9427#endif
9428 use pm_kind, only: RKC => RK3
9429 procedure(real(RKC)) :: getFunc
9430 type(ninf_type) , intent(in) :: lb
9431 real(RKC) , intent(in) :: ub
9432 real(RKC) , intent(in) :: abstol
9433 real(RKC) , intent(in) :: reltol
9434 type(GK21_type) , intent(in) :: qrule
9435 type(weps_type) , intent(in) :: help
9436 real(RKC) , intent(out) :: integral, abserr
9437 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9438 integer(IK) , intent(out) , contiguous :: sindex(:)
9439 integer(IK) , intent(out) :: neval
9440 integer(IK) , intent(out) :: nint
9441 integer(IK) :: err
9442 end function
9443#endif
9444
9445#if RK2_ENABLED
9446 module function QAGS_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9448 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK2
9449#endif
9450 use pm_kind, only: RKC => RK2
9451 procedure(real(RKC)) :: getFunc
9452 type(ninf_type) , intent(in) :: lb
9453 real(RKC) , intent(in) :: ub
9454 real(RKC) , intent(in) :: abstol
9455 real(RKC) , intent(in) :: reltol
9456 type(GK21_type) , intent(in) :: qrule
9457 type(weps_type) , intent(in) :: help
9458 real(RKC) , intent(out) :: integral, abserr
9459 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9460 integer(IK) , intent(out) , contiguous :: sindex(:)
9461 integer(IK) , intent(out) :: neval
9462 integer(IK) , intent(out) :: nint
9463 integer(IK) :: err
9464 end function
9465#endif
9466
9467#if RK1_ENABLED
9468 module function QAGS_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9470 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK1
9471#endif
9472 use pm_kind, only: RKC => RK1
9473 procedure(real(RKC)) :: getFunc
9474 type(ninf_type) , intent(in) :: lb
9475 real(RKC) , intent(in) :: ub
9476 real(RKC) , intent(in) :: abstol
9477 real(RKC) , intent(in) :: reltol
9478 type(GK21_type) , intent(in) :: qrule
9479 type(weps_type) , intent(in) :: help
9480 real(RKC) , intent(out) :: integral, abserr
9481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9482 integer(IK) , intent(out) , contiguous :: sindex(:)
9483 integer(IK) , intent(out) :: neval
9484 integer(IK) , intent(out) :: nint
9485 integer(IK) :: err
9486 end function
9487#endif
9488
9489 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9490
9491#if RK5_ENABLED
9492 module function QAGS_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK5
9495#endif
9496 use pm_kind, only: RKC => RK5
9497 procedure(real(RKC)) :: getFunc
9498 type(ninf_type) , intent(in) :: lb
9499 type(pinf_type) , intent(in) :: ub
9500 real(RKC) , intent(in) :: abstol
9501 real(RKC) , intent(in) :: reltol
9502 type(GK21_type) , intent(in) :: qrule
9503 type(weps_type) , intent(in) :: help
9504 real(RKC) , intent(out) :: integral, abserr
9505 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9506 integer(IK) , intent(out) , contiguous :: sindex(:)
9507 integer(IK) , intent(out) :: neval
9508 integer(IK) , intent(out) :: nint
9509 integer(IK) :: err
9510 end function
9511#endif
9512
9513#if RK4_ENABLED
9514 module function QAGS_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9516 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK4
9517#endif
9518 use pm_kind, only: RKC => RK4
9519 procedure(real(RKC)) :: getFunc
9520 type(ninf_type) , intent(in) :: lb
9521 type(pinf_type) , intent(in) :: ub
9522 real(RKC) , intent(in) :: abstol
9523 real(RKC) , intent(in) :: reltol
9524 type(GK21_type) , intent(in) :: qrule
9525 type(weps_type) , intent(in) :: help
9526 real(RKC) , intent(out) :: integral, abserr
9527 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9528 integer(IK) , intent(out) , contiguous :: sindex(:)
9529 integer(IK) , intent(out) :: neval
9530 integer(IK) , intent(out) :: nint
9531 integer(IK) :: err
9532 end function
9533#endif
9534
9535#if RK3_ENABLED
9536 module function QAGS_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9538 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK3
9539#endif
9540 use pm_kind, only: RKC => RK3
9541 procedure(real(RKC)) :: getFunc
9542 type(ninf_type) , intent(in) :: lb
9543 type(pinf_type) , intent(in) :: ub
9544 real(RKC) , intent(in) :: abstol
9545 real(RKC) , intent(in) :: reltol
9546 type(GK21_type) , intent(in) :: qrule
9547 type(weps_type) , intent(in) :: help
9548 real(RKC) , intent(out) :: integral, abserr
9549 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9550 integer(IK) , intent(out) , contiguous :: sindex(:)
9551 integer(IK) , intent(out) :: neval
9552 integer(IK) , intent(out) :: nint
9553 integer(IK) :: err
9554 end function
9555#endif
9556
9557#if RK2_ENABLED
9558 module function QAGS_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9560 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK2
9561#endif
9562 use pm_kind, only: RKC => RK2
9563 procedure(real(RKC)) :: getFunc
9564 type(ninf_type) , intent(in) :: lb
9565 type(pinf_type) , intent(in) :: ub
9566 real(RKC) , intent(in) :: abstol
9567 real(RKC) , intent(in) :: reltol
9568 type(GK21_type) , intent(in) :: qrule
9569 type(weps_type) , intent(in) :: help
9570 real(RKC) , intent(out) :: integral, abserr
9571 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9572 integer(IK) , intent(out) , contiguous :: sindex(:)
9573 integer(IK) , intent(out) :: neval
9574 integer(IK) , intent(out) :: nint
9575 integer(IK) :: err
9576 end function
9577#endif
9578
9579#if RK1_ENABLED
9580 module function QAGS_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9582 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK1
9583#endif
9584 use pm_kind, only: RKC => RK1
9585 procedure(real(RKC)) :: getFunc
9586 type(ninf_type) , intent(in) :: lb
9587 type(pinf_type) , intent(in) :: ub
9588 real(RKC) , intent(in) :: abstol
9589 real(RKC) , intent(in) :: reltol
9590 type(GK21_type) , intent(in) :: qrule
9591 type(weps_type) , intent(in) :: help
9592 real(RKC) , intent(out) :: integral, abserr
9593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9594 integer(IK) , intent(out) , contiguous :: sindex(:)
9595 integer(IK) , intent(out) :: neval
9596 integer(IK) , intent(out) :: nint
9597 integer(IK) :: err
9598 end function
9599#endif
9600
9601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9602
9603 end interface
9604
9605 ! QAGS_GK31
9606
9607 interface getQuadErr
9608
9609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9610
9611#if RK5_ENABLED
9612 module function QAGS_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK5
9615#endif
9616 use pm_kind, only: RKC => RK5
9617 procedure(real(RKC)) :: getFunc
9618 real(RKC) , intent(in) :: lb
9619 real(RKC) , intent(in) :: ub
9620 real(RKC) , intent(in) :: abstol
9621 real(RKC) , intent(in) :: reltol
9622 type(GK31_type) , intent(in) :: qrule
9623 type(weps_type) , intent(in) :: help
9624 real(RKC) , intent(out) :: integral, abserr
9625 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9626 integer(IK) , intent(out) , contiguous :: sindex(:)
9627 integer(IK) , intent(out) :: neval
9628 integer(IK) , intent(out) :: nint
9629 integer(IK) :: err
9630 end function
9631#endif
9632
9633#if RK4_ENABLED
9634 module function QAGS_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9636 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK4
9637#endif
9638 use pm_kind, only: RKC => RK4
9639 procedure(real(RKC)) :: getFunc
9640 real(RKC) , intent(in) :: lb
9641 real(RKC) , intent(in) :: ub
9642 real(RKC) , intent(in) :: abstol
9643 real(RKC) , intent(in) :: reltol
9644 type(GK31_type) , intent(in) :: qrule
9645 type(weps_type) , intent(in) :: help
9646 real(RKC) , intent(out) :: integral, abserr
9647 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9648 integer(IK) , intent(out) , contiguous :: sindex(:)
9649 integer(IK) , intent(out) :: neval
9650 integer(IK) , intent(out) :: nint
9651 integer(IK) :: err
9652 end function
9653#endif
9654
9655#if RK3_ENABLED
9656 module function QAGS_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK3
9659#endif
9660 use pm_kind, only: RKC => RK3
9661 procedure(real(RKC)) :: getFunc
9662 real(RKC) , intent(in) :: lb
9663 real(RKC) , intent(in) :: ub
9664 real(RKC) , intent(in) :: abstol
9665 real(RKC) , intent(in) :: reltol
9666 type(GK31_type) , intent(in) :: qrule
9667 type(weps_type) , intent(in) :: help
9668 real(RKC) , intent(out) :: integral, abserr
9669 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9670 integer(IK) , intent(out) , contiguous :: sindex(:)
9671 integer(IK) , intent(out) :: neval
9672 integer(IK) , intent(out) :: nint
9673 integer(IK) :: err
9674 end function
9675#endif
9676
9677#if RK2_ENABLED
9678 module function QAGS_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK2
9681#endif
9682 use pm_kind, only: RKC => RK2
9683 procedure(real(RKC)) :: getFunc
9684 real(RKC) , intent(in) :: lb
9685 real(RKC) , intent(in) :: ub
9686 real(RKC) , intent(in) :: abstol
9687 real(RKC) , intent(in) :: reltol
9688 type(GK31_type) , intent(in) :: qrule
9689 type(weps_type) , intent(in) :: help
9690 real(RKC) , intent(out) :: integral, abserr
9691 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9692 integer(IK) , intent(out) , contiguous :: sindex(:)
9693 integer(IK) , intent(out) :: neval
9694 integer(IK) , intent(out) :: nint
9695 integer(IK) :: err
9696 end function
9697#endif
9698
9699#if RK1_ENABLED
9700 module function QAGS_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK1
9703#endif
9704 use pm_kind, only: RKC => RK1
9705 procedure(real(RKC)) :: getFunc
9706 real(RKC) , intent(in) :: lb
9707 real(RKC) , intent(in) :: ub
9708 real(RKC) , intent(in) :: abstol
9709 real(RKC) , intent(in) :: reltol
9710 type(GK31_type) , intent(in) :: qrule
9711 type(weps_type) , intent(in) :: help
9712 real(RKC) , intent(out) :: integral, abserr
9713 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9714 integer(IK) , intent(out) , contiguous :: sindex(:)
9715 integer(IK) , intent(out) :: neval
9716 integer(IK) , intent(out) :: nint
9717 integer(IK) :: err
9718 end function
9719#endif
9720
9721 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9722
9723#if RK5_ENABLED
9724 module function QAGS_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK5
9727#endif
9728 use pm_kind, only: RKC => RK5
9729 procedure(real(RKC)) :: getFunc
9730 real(RKC) , intent(in) :: lb
9731 type(pinf_type) , intent(in) :: ub
9732 real(RKC) , intent(in) :: abstol
9733 real(RKC) , intent(in) :: reltol
9734 type(GK31_type) , intent(in) :: qrule
9735 type(weps_type) , intent(in) :: help
9736 real(RKC) , intent(out) :: integral, abserr
9737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9738 integer(IK) , intent(out) , contiguous :: sindex(:)
9739 integer(IK) , intent(out) :: neval
9740 integer(IK) , intent(out) :: nint
9741 integer(IK) :: err
9742 end function
9743#endif
9744
9745#if RK4_ENABLED
9746 module function QAGS_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK4
9749#endif
9750 use pm_kind, only: RKC => RK4
9751 procedure(real(RKC)) :: getFunc
9752 real(RKC) , intent(in) :: lb
9753 type(pinf_type) , intent(in) :: ub
9754 real(RKC) , intent(in) :: abstol
9755 real(RKC) , intent(in) :: reltol
9756 type(GK31_type) , intent(in) :: qrule
9757 type(weps_type) , intent(in) :: help
9758 real(RKC) , intent(out) :: integral, abserr
9759 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9760 integer(IK) , intent(out) , contiguous :: sindex(:)
9761 integer(IK) , intent(out) :: neval
9762 integer(IK) , intent(out) :: nint
9763 integer(IK) :: err
9764 end function
9765#endif
9766
9767#if RK3_ENABLED
9768 module function QAGS_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK3
9771#endif
9772 use pm_kind, only: RKC => RK3
9773 procedure(real(RKC)) :: getFunc
9774 real(RKC) , intent(in) :: lb
9775 type(pinf_type) , intent(in) :: ub
9776 real(RKC) , intent(in) :: abstol
9777 real(RKC) , intent(in) :: reltol
9778 type(GK31_type) , intent(in) :: qrule
9779 type(weps_type) , intent(in) :: help
9780 real(RKC) , intent(out) :: integral, abserr
9781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9782 integer(IK) , intent(out) , contiguous :: sindex(:)
9783 integer(IK) , intent(out) :: neval
9784 integer(IK) , intent(out) :: nint
9785 integer(IK) :: err
9786 end function
9787#endif
9788
9789#if RK2_ENABLED
9790 module function QAGS_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK2
9793#endif
9794 use pm_kind, only: RKC => RK2
9795 procedure(real(RKC)) :: getFunc
9796 real(RKC) , intent(in) :: lb
9797 type(pinf_type) , intent(in) :: ub
9798 real(RKC) , intent(in) :: abstol
9799 real(RKC) , intent(in) :: reltol
9800 type(GK31_type) , intent(in) :: qrule
9801 type(weps_type) , intent(in) :: help
9802 real(RKC) , intent(out) :: integral, abserr
9803 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9804 integer(IK) , intent(out) , contiguous :: sindex(:)
9805 integer(IK) , intent(out) :: neval
9806 integer(IK) , intent(out) :: nint
9807 integer(IK) :: err
9808 end function
9809#endif
9810
9811#if RK1_ENABLED
9812 module function QAGS_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK1
9815#endif
9816 use pm_kind, only: RKC => RK1
9817 procedure(real(RKC)) :: getFunc
9818 real(RKC) , intent(in) :: lb
9819 type(pinf_type) , intent(in) :: ub
9820 real(RKC) , intent(in) :: abstol
9821 real(RKC) , intent(in) :: reltol
9822 type(GK31_type) , intent(in) :: qrule
9823 type(weps_type) , intent(in) :: help
9824 real(RKC) , intent(out) :: integral, abserr
9825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9826 integer(IK) , intent(out) , contiguous :: sindex(:)
9827 integer(IK) , intent(out) :: neval
9828 integer(IK) , intent(out) :: nint
9829 integer(IK) :: err
9830 end function
9831#endif
9832
9833 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9834
9835#if RK5_ENABLED
9836 module function QAGS_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9838 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK5
9839#endif
9840 use pm_kind, only: RKC => RK5
9841 procedure(real(RKC)) :: getFunc
9842 type(ninf_type) , intent(in) :: lb
9843 real(RKC) , intent(in) :: ub
9844 real(RKC) , intent(in) :: abstol
9845 real(RKC) , intent(in) :: reltol
9846 type(GK31_type) , intent(in) :: qrule
9847 type(weps_type) , intent(in) :: help
9848 real(RKC) , intent(out) :: integral, abserr
9849 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9850 integer(IK) , intent(out) , contiguous :: sindex(:)
9851 integer(IK) , intent(out) :: neval
9852 integer(IK) , intent(out) :: nint
9853 integer(IK) :: err
9854 end function
9855#endif
9856
9857#if RK4_ENABLED
9858 module function QAGS_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9860 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK4
9861#endif
9862 use pm_kind, only: RKC => RK4
9863 procedure(real(RKC)) :: getFunc
9864 type(ninf_type) , intent(in) :: lb
9865 real(RKC) , intent(in) :: ub
9866 real(RKC) , intent(in) :: abstol
9867 real(RKC) , intent(in) :: reltol
9868 type(GK31_type) , intent(in) :: qrule
9869 type(weps_type) , intent(in) :: help
9870 real(RKC) , intent(out) :: integral, abserr
9871 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9872 integer(IK) , intent(out) , contiguous :: sindex(:)
9873 integer(IK) , intent(out) :: neval
9874 integer(IK) , intent(out) :: nint
9875 integer(IK) :: err
9876 end function
9877#endif
9878
9879#if RK3_ENABLED
9880 module function QAGS_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9882 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK3
9883#endif
9884 use pm_kind, only: RKC => RK3
9885 procedure(real(RKC)) :: getFunc
9886 type(ninf_type) , intent(in) :: lb
9887 real(RKC) , intent(in) :: ub
9888 real(RKC) , intent(in) :: abstol
9889 real(RKC) , intent(in) :: reltol
9890 type(GK31_type) , intent(in) :: qrule
9891 type(weps_type) , intent(in) :: help
9892 real(RKC) , intent(out) :: integral, abserr
9893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9894 integer(IK) , intent(out) , contiguous :: sindex(:)
9895 integer(IK) , intent(out) :: neval
9896 integer(IK) , intent(out) :: nint
9897 integer(IK) :: err
9898 end function
9899#endif
9900
9901#if RK2_ENABLED
9902 module function QAGS_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK2
9905#endif
9906 use pm_kind, only: RKC => RK2
9907 procedure(real(RKC)) :: getFunc
9908 type(ninf_type) , intent(in) :: lb
9909 real(RKC) , intent(in) :: ub
9910 real(RKC) , intent(in) :: abstol
9911 real(RKC) , intent(in) :: reltol
9912 type(GK31_type) , intent(in) :: qrule
9913 type(weps_type) , intent(in) :: help
9914 real(RKC) , intent(out) :: integral, abserr
9915 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9916 integer(IK) , intent(out) , contiguous :: sindex(:)
9917 integer(IK) , intent(out) :: neval
9918 integer(IK) , intent(out) :: nint
9919 integer(IK) :: err
9920 end function
9921#endif
9922
9923#if RK1_ENABLED
9924 module function QAGS_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9926 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK1
9927#endif
9928 use pm_kind, only: RKC => RK1
9929 procedure(real(RKC)) :: getFunc
9930 type(ninf_type) , intent(in) :: lb
9931 real(RKC) , intent(in) :: ub
9932 real(RKC) , intent(in) :: abstol
9933 real(RKC) , intent(in) :: reltol
9934 type(GK31_type) , intent(in) :: qrule
9935 type(weps_type) , intent(in) :: help
9936 real(RKC) , intent(out) :: integral, abserr
9937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9938 integer(IK) , intent(out) , contiguous :: sindex(:)
9939 integer(IK) , intent(out) :: neval
9940 integer(IK) , intent(out) :: nint
9941 integer(IK) :: err
9942 end function
9943#endif
9944
9945 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9946
9947#if RK5_ENABLED
9948 module function QAGS_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9950 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK5
9951#endif
9952 use pm_kind, only: RKC => RK5
9953 procedure(real(RKC)) :: getFunc
9954 type(ninf_type) , intent(in) :: lb
9955 type(pinf_type) , intent(in) :: ub
9956 real(RKC) , intent(in) :: abstol
9957 real(RKC) , intent(in) :: reltol
9958 type(GK31_type) , intent(in) :: qrule
9959 type(weps_type) , intent(in) :: help
9960 real(RKC) , intent(out) :: integral, abserr
9961 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9962 integer(IK) , intent(out) , contiguous :: sindex(:)
9963 integer(IK) , intent(out) :: neval
9964 integer(IK) , intent(out) :: nint
9965 integer(IK) :: err
9966 end function
9967#endif
9968
9969#if RK4_ENABLED
9970 module function QAGS_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9972 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK4
9973#endif
9974 use pm_kind, only: RKC => RK4
9975 procedure(real(RKC)) :: getFunc
9976 type(ninf_type) , intent(in) :: lb
9977 type(pinf_type) , intent(in) :: ub
9978 real(RKC) , intent(in) :: abstol
9979 real(RKC) , intent(in) :: reltol
9980 type(GK31_type) , intent(in) :: qrule
9981 type(weps_type) , intent(in) :: help
9982 real(RKC) , intent(out) :: integral, abserr
9983 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9984 integer(IK) , intent(out) , contiguous :: sindex(:)
9985 integer(IK) , intent(out) :: neval
9986 integer(IK) , intent(out) :: nint
9987 integer(IK) :: err
9988 end function
9989#endif
9990
9991#if RK3_ENABLED
9992 module function QAGS_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9994 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK3
9995#endif
9996 use pm_kind, only: RKC => RK3
9997 procedure(real(RKC)) :: getFunc
9998 type(ninf_type) , intent(in) :: lb
9999 type(pinf_type) , intent(in) :: ub
10000 real(RKC) , intent(in) :: abstol
10001 real(RKC) , intent(in) :: reltol
10002 type(GK31_type) , intent(in) :: qrule
10003 type(weps_type) , intent(in) :: help
10004 real(RKC) , intent(out) :: integral, abserr
10005 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10006 integer(IK) , intent(out) , contiguous :: sindex(:)
10007 integer(IK) , intent(out) :: neval
10008 integer(IK) , intent(out) :: nint
10009 integer(IK) :: err
10010 end function
10011#endif
10012
10013#if RK2_ENABLED
10014 module function QAGS_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK2
10017#endif
10018 use pm_kind, only: RKC => RK2
10019 procedure(real(RKC)) :: getFunc
10020 type(ninf_type) , intent(in) :: lb
10021 type(pinf_type) , intent(in) :: ub
10022 real(RKC) , intent(in) :: abstol
10023 real(RKC) , intent(in) :: reltol
10024 type(GK31_type) , intent(in) :: qrule
10025 type(weps_type) , intent(in) :: help
10026 real(RKC) , intent(out) :: integral, abserr
10027 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10028 integer(IK) , intent(out) , contiguous :: sindex(:)
10029 integer(IK) , intent(out) :: neval
10030 integer(IK) , intent(out) :: nint
10031 integer(IK) :: err
10032 end function
10033#endif
10034
10035#if RK1_ENABLED
10036 module function QAGS_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10038 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK1
10039#endif
10040 use pm_kind, only: RKC => RK1
10041 procedure(real(RKC)) :: getFunc
10042 type(ninf_type) , intent(in) :: lb
10043 type(pinf_type) , intent(in) :: ub
10044 real(RKC) , intent(in) :: abstol
10045 real(RKC) , intent(in) :: reltol
10046 type(GK31_type) , intent(in) :: qrule
10047 type(weps_type) , intent(in) :: help
10048 real(RKC) , intent(out) :: integral, abserr
10049 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10050 integer(IK) , intent(out) , contiguous :: sindex(:)
10051 integer(IK) , intent(out) :: neval
10052 integer(IK) , intent(out) :: nint
10053 integer(IK) :: err
10054 end function
10055#endif
10056
10057 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10058
10059 end interface
10060
10061 ! QAGS_GK41
10062
10063 interface getQuadErr
10064
10065 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10066
10067#if RK5_ENABLED
10068 module function QAGS_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10070 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK5
10071#endif
10072 use pm_kind, only: RKC => RK5
10073 procedure(real(RKC)) :: getFunc
10074 real(RKC) , intent(in) :: lb
10075 real(RKC) , intent(in) :: ub
10076 real(RKC) , intent(in) :: abstol
10077 real(RKC) , intent(in) :: reltol
10078 type(GK41_type) , intent(in) :: qrule
10079 type(weps_type) , intent(in) :: help
10080 real(RKC) , intent(out) :: integral, abserr
10081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10082 integer(IK) , intent(out) , contiguous :: sindex(:)
10083 integer(IK) , intent(out) :: neval
10084 integer(IK) , intent(out) :: nint
10085 integer(IK) :: err
10086 end function
10087#endif
10088
10089#if RK4_ENABLED
10090 module function QAGS_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10092 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK4
10093#endif
10094 use pm_kind, only: RKC => RK4
10095 procedure(real(RKC)) :: getFunc
10096 real(RKC) , intent(in) :: lb
10097 real(RKC) , intent(in) :: ub
10098 real(RKC) , intent(in) :: abstol
10099 real(RKC) , intent(in) :: reltol
10100 type(GK41_type) , intent(in) :: qrule
10101 type(weps_type) , intent(in) :: help
10102 real(RKC) , intent(out) :: integral, abserr
10103 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10104 integer(IK) , intent(out) , contiguous :: sindex(:)
10105 integer(IK) , intent(out) :: neval
10106 integer(IK) , intent(out) :: nint
10107 integer(IK) :: err
10108 end function
10109#endif
10110
10111#if RK3_ENABLED
10112 module function QAGS_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10114 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK3
10115#endif
10116 use pm_kind, only: RKC => RK3
10117 procedure(real(RKC)) :: getFunc
10118 real(RKC) , intent(in) :: lb
10119 real(RKC) , intent(in) :: ub
10120 real(RKC) , intent(in) :: abstol
10121 real(RKC) , intent(in) :: reltol
10122 type(GK41_type) , intent(in) :: qrule
10123 type(weps_type) , intent(in) :: help
10124 real(RKC) , intent(out) :: integral, abserr
10125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10126 integer(IK) , intent(out) , contiguous :: sindex(:)
10127 integer(IK) , intent(out) :: neval
10128 integer(IK) , intent(out) :: nint
10129 integer(IK) :: err
10130 end function
10131#endif
10132
10133#if RK2_ENABLED
10134 module function QAGS_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10136 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK2
10137#endif
10138 use pm_kind, only: RKC => RK2
10139 procedure(real(RKC)) :: getFunc
10140 real(RKC) , intent(in) :: lb
10141 real(RKC) , intent(in) :: ub
10142 real(RKC) , intent(in) :: abstol
10143 real(RKC) , intent(in) :: reltol
10144 type(GK41_type) , intent(in) :: qrule
10145 type(weps_type) , intent(in) :: help
10146 real(RKC) , intent(out) :: integral, abserr
10147 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10148 integer(IK) , intent(out) , contiguous :: sindex(:)
10149 integer(IK) , intent(out) :: neval
10150 integer(IK) , intent(out) :: nint
10151 integer(IK) :: err
10152 end function
10153#endif
10154
10155#if RK1_ENABLED
10156 module function QAGS_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK1
10159#endif
10160 use pm_kind, only: RKC => RK1
10161 procedure(real(RKC)) :: getFunc
10162 real(RKC) , intent(in) :: lb
10163 real(RKC) , intent(in) :: ub
10164 real(RKC) , intent(in) :: abstol
10165 real(RKC) , intent(in) :: reltol
10166 type(GK41_type) , intent(in) :: qrule
10167 type(weps_type) , intent(in) :: help
10168 real(RKC) , intent(out) :: integral, abserr
10169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10170 integer(IK) , intent(out) , contiguous :: sindex(:)
10171 integer(IK) , intent(out) :: neval
10172 integer(IK) , intent(out) :: nint
10173 integer(IK) :: err
10174 end function
10175#endif
10176
10177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10178
10179#if RK5_ENABLED
10180 module function QAGS_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10182 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK5
10183#endif
10184 use pm_kind, only: RKC => RK5
10185 procedure(real(RKC)) :: getFunc
10186 real(RKC) , intent(in) :: lb
10187 type(pinf_type) , intent(in) :: ub
10188 real(RKC) , intent(in) :: abstol
10189 real(RKC) , intent(in) :: reltol
10190 type(GK41_type) , intent(in) :: qrule
10191 type(weps_type) , intent(in) :: help
10192 real(RKC) , intent(out) :: integral, abserr
10193 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10194 integer(IK) , intent(out) , contiguous :: sindex(:)
10195 integer(IK) , intent(out) :: neval
10196 integer(IK) , intent(out) :: nint
10197 integer(IK) :: err
10198 end function
10199#endif
10200
10201#if RK4_ENABLED
10202 module function QAGS_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10204 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK4
10205#endif
10206 use pm_kind, only: RKC => RK4
10207 procedure(real(RKC)) :: getFunc
10208 real(RKC) , intent(in) :: lb
10209 type(pinf_type) , intent(in) :: ub
10210 real(RKC) , intent(in) :: abstol
10211 real(RKC) , intent(in) :: reltol
10212 type(GK41_type) , intent(in) :: qrule
10213 type(weps_type) , intent(in) :: help
10214 real(RKC) , intent(out) :: integral, abserr
10215 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10216 integer(IK) , intent(out) , contiguous :: sindex(:)
10217 integer(IK) , intent(out) :: neval
10218 integer(IK) , intent(out) :: nint
10219 integer(IK) :: err
10220 end function
10221#endif
10222
10223#if RK3_ENABLED
10224 module function QAGS_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10226 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK3
10227#endif
10228 use pm_kind, only: RKC => RK3
10229 procedure(real(RKC)) :: getFunc
10230 real(RKC) , intent(in) :: lb
10231 type(pinf_type) , intent(in) :: ub
10232 real(RKC) , intent(in) :: abstol
10233 real(RKC) , intent(in) :: reltol
10234 type(GK41_type) , intent(in) :: qrule
10235 type(weps_type) , intent(in) :: help
10236 real(RKC) , intent(out) :: integral, abserr
10237 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10238 integer(IK) , intent(out) , contiguous :: sindex(:)
10239 integer(IK) , intent(out) :: neval
10240 integer(IK) , intent(out) :: nint
10241 integer(IK) :: err
10242 end function
10243#endif
10244
10245#if RK2_ENABLED
10246 module function QAGS_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10248 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK2
10249#endif
10250 use pm_kind, only: RKC => RK2
10251 procedure(real(RKC)) :: getFunc
10252 real(RKC) , intent(in) :: lb
10253 type(pinf_type) , intent(in) :: ub
10254 real(RKC) , intent(in) :: abstol
10255 real(RKC) , intent(in) :: reltol
10256 type(GK41_type) , intent(in) :: qrule
10257 type(weps_type) , intent(in) :: help
10258 real(RKC) , intent(out) :: integral, abserr
10259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10260 integer(IK) , intent(out) , contiguous :: sindex(:)
10261 integer(IK) , intent(out) :: neval
10262 integer(IK) , intent(out) :: nint
10263 integer(IK) :: err
10264 end function
10265#endif
10266
10267#if RK1_ENABLED
10268 module function QAGS_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK1
10271#endif
10272 use pm_kind, only: RKC => RK1
10273 procedure(real(RKC)) :: getFunc
10274 real(RKC) , intent(in) :: lb
10275 type(pinf_type) , intent(in) :: ub
10276 real(RKC) , intent(in) :: abstol
10277 real(RKC) , intent(in) :: reltol
10278 type(GK41_type) , intent(in) :: qrule
10279 type(weps_type) , intent(in) :: help
10280 real(RKC) , intent(out) :: integral, abserr
10281 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10282 integer(IK) , intent(out) , contiguous :: sindex(:)
10283 integer(IK) , intent(out) :: neval
10284 integer(IK) , intent(out) :: nint
10285 integer(IK) :: err
10286 end function
10287#endif
10288
10289 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10290
10291#if RK5_ENABLED
10292 module function QAGS_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10294 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK5
10295#endif
10296 use pm_kind, only: RKC => RK5
10297 procedure(real(RKC)) :: getFunc
10298 type(ninf_type) , intent(in) :: lb
10299 real(RKC) , intent(in) :: ub
10300 real(RKC) , intent(in) :: abstol
10301 real(RKC) , intent(in) :: reltol
10302 type(GK41_type) , intent(in) :: qrule
10303 type(weps_type) , intent(in) :: help
10304 real(RKC) , intent(out) :: integral, abserr
10305 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10306 integer(IK) , intent(out) , contiguous :: sindex(:)
10307 integer(IK) , intent(out) :: neval
10308 integer(IK) , intent(out) :: nint
10309 integer(IK) :: err
10310 end function
10311#endif
10312
10313#if RK4_ENABLED
10314 module function QAGS_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10316 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK4
10317#endif
10318 use pm_kind, only: RKC => RK4
10319 procedure(real(RKC)) :: getFunc
10320 type(ninf_type) , intent(in) :: lb
10321 real(RKC) , intent(in) :: ub
10322 real(RKC) , intent(in) :: abstol
10323 real(RKC) , intent(in) :: reltol
10324 type(GK41_type) , intent(in) :: qrule
10325 type(weps_type) , intent(in) :: help
10326 real(RKC) , intent(out) :: integral, abserr
10327 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10328 integer(IK) , intent(out) , contiguous :: sindex(:)
10329 integer(IK) , intent(out) :: neval
10330 integer(IK) , intent(out) :: nint
10331 integer(IK) :: err
10332 end function
10333#endif
10334
10335#if RK3_ENABLED
10336 module function QAGS_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10338 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK3
10339#endif
10340 use pm_kind, only: RKC => RK3
10341 procedure(real(RKC)) :: getFunc
10342 type(ninf_type) , intent(in) :: lb
10343 real(RKC) , intent(in) :: ub
10344 real(RKC) , intent(in) :: abstol
10345 real(RKC) , intent(in) :: reltol
10346 type(GK41_type) , intent(in) :: qrule
10347 type(weps_type) , intent(in) :: help
10348 real(RKC) , intent(out) :: integral, abserr
10349 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10350 integer(IK) , intent(out) , contiguous :: sindex(:)
10351 integer(IK) , intent(out) :: neval
10352 integer(IK) , intent(out) :: nint
10353 integer(IK) :: err
10354 end function
10355#endif
10356
10357#if RK2_ENABLED
10358 module function QAGS_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10360 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK2
10361#endif
10362 use pm_kind, only: RKC => RK2
10363 procedure(real(RKC)) :: getFunc
10364 type(ninf_type) , intent(in) :: lb
10365 real(RKC) , intent(in) :: ub
10366 real(RKC) , intent(in) :: abstol
10367 real(RKC) , intent(in) :: reltol
10368 type(GK41_type) , intent(in) :: qrule
10369 type(weps_type) , intent(in) :: help
10370 real(RKC) , intent(out) :: integral, abserr
10371 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10372 integer(IK) , intent(out) , contiguous :: sindex(:)
10373 integer(IK) , intent(out) :: neval
10374 integer(IK) , intent(out) :: nint
10375 integer(IK) :: err
10376 end function
10377#endif
10378
10379#if RK1_ENABLED
10380 module function QAGS_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10382 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK1
10383#endif
10384 use pm_kind, only: RKC => RK1
10385 procedure(real(RKC)) :: getFunc
10386 type(ninf_type) , intent(in) :: lb
10387 real(RKC) , intent(in) :: ub
10388 real(RKC) , intent(in) :: abstol
10389 real(RKC) , intent(in) :: reltol
10390 type(GK41_type) , intent(in) :: qrule
10391 type(weps_type) , intent(in) :: help
10392 real(RKC) , intent(out) :: integral, abserr
10393 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10394 integer(IK) , intent(out) , contiguous :: sindex(:)
10395 integer(IK) , intent(out) :: neval
10396 integer(IK) , intent(out) :: nint
10397 integer(IK) :: err
10398 end function
10399#endif
10400
10401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10402
10403#if RK5_ENABLED
10404 module function QAGS_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10406 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK5
10407#endif
10408 use pm_kind, only: RKC => RK5
10409 procedure(real(RKC)) :: getFunc
10410 type(ninf_type) , intent(in) :: lb
10411 type(pinf_type) , intent(in) :: ub
10412 real(RKC) , intent(in) :: abstol
10413 real(RKC) , intent(in) :: reltol
10414 type(GK41_type) , intent(in) :: qrule
10415 type(weps_type) , intent(in) :: help
10416 real(RKC) , intent(out) :: integral, abserr
10417 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10418 integer(IK) , intent(out) , contiguous :: sindex(:)
10419 integer(IK) , intent(out) :: neval
10420 integer(IK) , intent(out) :: nint
10421 integer(IK) :: err
10422 end function
10423#endif
10424
10425#if RK4_ENABLED
10426 module function QAGS_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10428 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK4
10429#endif
10430 use pm_kind, only: RKC => RK4
10431 procedure(real(RKC)) :: getFunc
10432 type(ninf_type) , intent(in) :: lb
10433 type(pinf_type) , intent(in) :: ub
10434 real(RKC) , intent(in) :: abstol
10435 real(RKC) , intent(in) :: reltol
10436 type(GK41_type) , intent(in) :: qrule
10437 type(weps_type) , intent(in) :: help
10438 real(RKC) , intent(out) :: integral, abserr
10439 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10440 integer(IK) , intent(out) , contiguous :: sindex(:)
10441 integer(IK) , intent(out) :: neval
10442 integer(IK) , intent(out) :: nint
10443 integer(IK) :: err
10444 end function
10445#endif
10446
10447#if RK3_ENABLED
10448 module function QAGS_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK3
10451#endif
10452 use pm_kind, only: RKC => RK3
10453 procedure(real(RKC)) :: getFunc
10454 type(ninf_type) , intent(in) :: lb
10455 type(pinf_type) , intent(in) :: ub
10456 real(RKC) , intent(in) :: abstol
10457 real(RKC) , intent(in) :: reltol
10458 type(GK41_type) , intent(in) :: qrule
10459 type(weps_type) , intent(in) :: help
10460 real(RKC) , intent(out) :: integral, abserr
10461 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10462 integer(IK) , intent(out) , contiguous :: sindex(:)
10463 integer(IK) , intent(out) :: neval
10464 integer(IK) , intent(out) :: nint
10465 integer(IK) :: err
10466 end function
10467#endif
10468
10469#if RK2_ENABLED
10470 module function QAGS_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10472 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK2
10473#endif
10474 use pm_kind, only: RKC => RK2
10475 procedure(real(RKC)) :: getFunc
10476 type(ninf_type) , intent(in) :: lb
10477 type(pinf_type) , intent(in) :: ub
10478 real(RKC) , intent(in) :: abstol
10479 real(RKC) , intent(in) :: reltol
10480 type(GK41_type) , intent(in) :: qrule
10481 type(weps_type) , intent(in) :: help
10482 real(RKC) , intent(out) :: integral, abserr
10483 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10484 integer(IK) , intent(out) , contiguous :: sindex(:)
10485 integer(IK) , intent(out) :: neval
10486 integer(IK) , intent(out) :: nint
10487 integer(IK) :: err
10488 end function
10489#endif
10490
10491#if RK1_ENABLED
10492 module function QAGS_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK1
10495#endif
10496 use pm_kind, only: RKC => RK1
10497 procedure(real(RKC)) :: getFunc
10498 type(ninf_type) , intent(in) :: lb
10499 type(pinf_type) , intent(in) :: ub
10500 real(RKC) , intent(in) :: abstol
10501 real(RKC) , intent(in) :: reltol
10502 type(GK41_type) , intent(in) :: qrule
10503 type(weps_type) , intent(in) :: help
10504 real(RKC) , intent(out) :: integral, abserr
10505 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10506 integer(IK) , intent(out) , contiguous :: sindex(:)
10507 integer(IK) , intent(out) :: neval
10508 integer(IK) , intent(out) :: nint
10509 integer(IK) :: err
10510 end function
10511#endif
10512
10513 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10514
10515 end interface
10516
10517 ! QAGS_GK51
10518
10519 interface getQuadErr
10520
10521 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10522
10523#if RK5_ENABLED
10524 module function QAGS_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10526 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK5
10527#endif
10528 use pm_kind, only: RKC => RK5
10529 procedure(real(RKC)) :: getFunc
10530 real(RKC) , intent(in) :: lb
10531 real(RKC) , intent(in) :: ub
10532 real(RKC) , intent(in) :: abstol
10533 real(RKC) , intent(in) :: reltol
10534 type(GK51_type) , intent(in) :: qrule
10535 type(weps_type) , intent(in) :: help
10536 real(RKC) , intent(out) :: integral, abserr
10537 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10538 integer(IK) , intent(out) , contiguous :: sindex(:)
10539 integer(IK) , intent(out) :: neval
10540 integer(IK) , intent(out) :: nint
10541 integer(IK) :: err
10542 end function
10543#endif
10544
10545#if RK4_ENABLED
10546 module function QAGS_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10548 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK4
10549#endif
10550 use pm_kind, only: RKC => RK4
10551 procedure(real(RKC)) :: getFunc
10552 real(RKC) , intent(in) :: lb
10553 real(RKC) , intent(in) :: ub
10554 real(RKC) , intent(in) :: abstol
10555 real(RKC) , intent(in) :: reltol
10556 type(GK51_type) , intent(in) :: qrule
10557 type(weps_type) , intent(in) :: help
10558 real(RKC) , intent(out) :: integral, abserr
10559 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10560 integer(IK) , intent(out) , contiguous :: sindex(:)
10561 integer(IK) , intent(out) :: neval
10562 integer(IK) , intent(out) :: nint
10563 integer(IK) :: err
10564 end function
10565#endif
10566
10567#if RK3_ENABLED
10568 module function QAGS_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10570 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK3
10571#endif
10572 use pm_kind, only: RKC => RK3
10573 procedure(real(RKC)) :: getFunc
10574 real(RKC) , intent(in) :: lb
10575 real(RKC) , intent(in) :: ub
10576 real(RKC) , intent(in) :: abstol
10577 real(RKC) , intent(in) :: reltol
10578 type(GK51_type) , intent(in) :: qrule
10579 type(weps_type) , intent(in) :: help
10580 real(RKC) , intent(out) :: integral, abserr
10581 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10582 integer(IK) , intent(out) , contiguous :: sindex(:)
10583 integer(IK) , intent(out) :: neval
10584 integer(IK) , intent(out) :: nint
10585 integer(IK) :: err
10586 end function
10587#endif
10588
10589#if RK2_ENABLED
10590 module function QAGS_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10592 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK2
10593#endif
10594 use pm_kind, only: RKC => RK2
10595 procedure(real(RKC)) :: getFunc
10596 real(RKC) , intent(in) :: lb
10597 real(RKC) , intent(in) :: ub
10598 real(RKC) , intent(in) :: abstol
10599 real(RKC) , intent(in) :: reltol
10600 type(GK51_type) , intent(in) :: qrule
10601 type(weps_type) , intent(in) :: help
10602 real(RKC) , intent(out) :: integral, abserr
10603 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10604 integer(IK) , intent(out) , contiguous :: sindex(:)
10605 integer(IK) , intent(out) :: neval
10606 integer(IK) , intent(out) :: nint
10607 integer(IK) :: err
10608 end function
10609#endif
10610
10611#if RK1_ENABLED
10612 module function QAGS_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK1
10615#endif
10616 use pm_kind, only: RKC => RK1
10617 procedure(real(RKC)) :: getFunc
10618 real(RKC) , intent(in) :: lb
10619 real(RKC) , intent(in) :: ub
10620 real(RKC) , intent(in) :: abstol
10621 real(RKC) , intent(in) :: reltol
10622 type(GK51_type) , intent(in) :: qrule
10623 type(weps_type) , intent(in) :: help
10624 real(RKC) , intent(out) :: integral, abserr
10625 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10626 integer(IK) , intent(out) , contiguous :: sindex(:)
10627 integer(IK) , intent(out) :: neval
10628 integer(IK) , intent(out) :: nint
10629 integer(IK) :: err
10630 end function
10631#endif
10632
10633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10634
10635#if RK5_ENABLED
10636 module function QAGS_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10638 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK5
10639#endif
10640 use pm_kind, only: RKC => RK5
10641 procedure(real(RKC)) :: getFunc
10642 real(RKC) , intent(in) :: lb
10643 type(pinf_type) , intent(in) :: ub
10644 real(RKC) , intent(in) :: abstol
10645 real(RKC) , intent(in) :: reltol
10646 type(GK51_type) , intent(in) :: qrule
10647 type(weps_type) , intent(in) :: help
10648 real(RKC) , intent(out) :: integral, abserr
10649 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10650 integer(IK) , intent(out) , contiguous :: sindex(:)
10651 integer(IK) , intent(out) :: neval
10652 integer(IK) , intent(out) :: nint
10653 integer(IK) :: err
10654 end function
10655#endif
10656
10657#if RK4_ENABLED
10658 module function QAGS_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10660 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK4
10661#endif
10662 use pm_kind, only: RKC => RK4
10663 procedure(real(RKC)) :: getFunc
10664 real(RKC) , intent(in) :: lb
10665 type(pinf_type) , intent(in) :: ub
10666 real(RKC) , intent(in) :: abstol
10667 real(RKC) , intent(in) :: reltol
10668 type(GK51_type) , intent(in) :: qrule
10669 type(weps_type) , intent(in) :: help
10670 real(RKC) , intent(out) :: integral, abserr
10671 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10672 integer(IK) , intent(out) , contiguous :: sindex(:)
10673 integer(IK) , intent(out) :: neval
10674 integer(IK) , intent(out) :: nint
10675 integer(IK) :: err
10676 end function
10677#endif
10678
10679#if RK3_ENABLED
10680 module function QAGS_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10682 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK3
10683#endif
10684 use pm_kind, only: RKC => RK3
10685 procedure(real(RKC)) :: getFunc
10686 real(RKC) , intent(in) :: lb
10687 type(pinf_type) , intent(in) :: ub
10688 real(RKC) , intent(in) :: abstol
10689 real(RKC) , intent(in) :: reltol
10690 type(GK51_type) , intent(in) :: qrule
10691 type(weps_type) , intent(in) :: help
10692 real(RKC) , intent(out) :: integral, abserr
10693 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10694 integer(IK) , intent(out) , contiguous :: sindex(:)
10695 integer(IK) , intent(out) :: neval
10696 integer(IK) , intent(out) :: nint
10697 integer(IK) :: err
10698 end function
10699#endif
10700
10701#if RK2_ENABLED
10702 module function QAGS_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK2
10705#endif
10706 use pm_kind, only: RKC => RK2
10707 procedure(real(RKC)) :: getFunc
10708 real(RKC) , intent(in) :: lb
10709 type(pinf_type) , intent(in) :: ub
10710 real(RKC) , intent(in) :: abstol
10711 real(RKC) , intent(in) :: reltol
10712 type(GK51_type) , intent(in) :: qrule
10713 type(weps_type) , intent(in) :: help
10714 real(RKC) , intent(out) :: integral, abserr
10715 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10716 integer(IK) , intent(out) , contiguous :: sindex(:)
10717 integer(IK) , intent(out) :: neval
10718 integer(IK) , intent(out) :: nint
10719 integer(IK) :: err
10720 end function
10721#endif
10722
10723#if RK1_ENABLED
10724 module function QAGS_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK1
10727#endif
10728 use pm_kind, only: RKC => RK1
10729 procedure(real(RKC)) :: getFunc
10730 real(RKC) , intent(in) :: lb
10731 type(pinf_type) , intent(in) :: ub
10732 real(RKC) , intent(in) :: abstol
10733 real(RKC) , intent(in) :: reltol
10734 type(GK51_type) , intent(in) :: qrule
10735 type(weps_type) , intent(in) :: help
10736 real(RKC) , intent(out) :: integral, abserr
10737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10738 integer(IK) , intent(out) , contiguous :: sindex(:)
10739 integer(IK) , intent(out) :: neval
10740 integer(IK) , intent(out) :: nint
10741 integer(IK) :: err
10742 end function
10743#endif
10744
10745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10746
10747#if RK5_ENABLED
10748 module function QAGS_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK5
10751#endif
10752 use pm_kind, only: RKC => RK5
10753 procedure(real(RKC)) :: getFunc
10754 type(ninf_type) , intent(in) :: lb
10755 real(RKC) , intent(in) :: ub
10756 real(RKC) , intent(in) :: abstol
10757 real(RKC) , intent(in) :: reltol
10758 type(GK51_type) , intent(in) :: qrule
10759 type(weps_type) , intent(in) :: help
10760 real(RKC) , intent(out) :: integral, abserr
10761 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10762 integer(IK) , intent(out) , contiguous :: sindex(:)
10763 integer(IK) , intent(out) :: neval
10764 integer(IK) , intent(out) :: nint
10765 integer(IK) :: err
10766 end function
10767#endif
10768
10769#if RK4_ENABLED
10770 module function QAGS_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10772 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK4
10773#endif
10774 use pm_kind, only: RKC => RK4
10775 procedure(real(RKC)) :: getFunc
10776 type(ninf_type) , intent(in) :: lb
10777 real(RKC) , intent(in) :: ub
10778 real(RKC) , intent(in) :: abstol
10779 real(RKC) , intent(in) :: reltol
10780 type(GK51_type) , intent(in) :: qrule
10781 type(weps_type) , intent(in) :: help
10782 real(RKC) , intent(out) :: integral, abserr
10783 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10784 integer(IK) , intent(out) , contiguous :: sindex(:)
10785 integer(IK) , intent(out) :: neval
10786 integer(IK) , intent(out) :: nint
10787 integer(IK) :: err
10788 end function
10789#endif
10790
10791#if RK3_ENABLED
10792 module function QAGS_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK3
10795#endif
10796 use pm_kind, only: RKC => RK3
10797 procedure(real(RKC)) :: getFunc
10798 type(ninf_type) , intent(in) :: lb
10799 real(RKC) , intent(in) :: ub
10800 real(RKC) , intent(in) :: abstol
10801 real(RKC) , intent(in) :: reltol
10802 type(GK51_type) , intent(in) :: qrule
10803 type(weps_type) , intent(in) :: help
10804 real(RKC) , intent(out) :: integral, abserr
10805 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10806 integer(IK) , intent(out) , contiguous :: sindex(:)
10807 integer(IK) , intent(out) :: neval
10808 integer(IK) , intent(out) :: nint
10809 integer(IK) :: err
10810 end function
10811#endif
10812
10813#if RK2_ENABLED
10814 module function QAGS_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10816 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK2
10817#endif
10818 use pm_kind, only: RKC => RK2
10819 procedure(real(RKC)) :: getFunc
10820 type(ninf_type) , intent(in) :: lb
10821 real(RKC) , intent(in) :: ub
10822 real(RKC) , intent(in) :: abstol
10823 real(RKC) , intent(in) :: reltol
10824 type(GK51_type) , intent(in) :: qrule
10825 type(weps_type) , intent(in) :: help
10826 real(RKC) , intent(out) :: integral, abserr
10827 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10828 integer(IK) , intent(out) , contiguous :: sindex(:)
10829 integer(IK) , intent(out) :: neval
10830 integer(IK) , intent(out) :: nint
10831 integer(IK) :: err
10832 end function
10833#endif
10834
10835#if RK1_ENABLED
10836 module function QAGS_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10838 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK1
10839#endif
10840 use pm_kind, only: RKC => RK1
10841 procedure(real(RKC)) :: getFunc
10842 type(ninf_type) , intent(in) :: lb
10843 real(RKC) , intent(in) :: ub
10844 real(RKC) , intent(in) :: abstol
10845 real(RKC) , intent(in) :: reltol
10846 type(GK51_type) , intent(in) :: qrule
10847 type(weps_type) , intent(in) :: help
10848 real(RKC) , intent(out) :: integral, abserr
10849 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10850 integer(IK) , intent(out) , contiguous :: sindex(:)
10851 integer(IK) , intent(out) :: neval
10852 integer(IK) , intent(out) :: nint
10853 integer(IK) :: err
10854 end function
10855#endif
10856
10857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10858
10859#if RK5_ENABLED
10860 module function QAGS_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10862 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK5
10863#endif
10864 use pm_kind, only: RKC => RK5
10865 procedure(real(RKC)) :: getFunc
10866 type(ninf_type) , intent(in) :: lb
10867 type(pinf_type) , intent(in) :: ub
10868 real(RKC) , intent(in) :: abstol
10869 real(RKC) , intent(in) :: reltol
10870 type(GK51_type) , intent(in) :: qrule
10871 type(weps_type) , intent(in) :: help
10872 real(RKC) , intent(out) :: integral, abserr
10873 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10874 integer(IK) , intent(out) , contiguous :: sindex(:)
10875 integer(IK) , intent(out) :: neval
10876 integer(IK) , intent(out) :: nint
10877 integer(IK) :: err
10878 end function
10879#endif
10880
10881#if RK4_ENABLED
10882 module function QAGS_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10884 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK4
10885#endif
10886 use pm_kind, only: RKC => RK4
10887 procedure(real(RKC)) :: getFunc
10888 type(ninf_type) , intent(in) :: lb
10889 type(pinf_type) , intent(in) :: ub
10890 real(RKC) , intent(in) :: abstol
10891 real(RKC) , intent(in) :: reltol
10892 type(GK51_type) , intent(in) :: qrule
10893 type(weps_type) , intent(in) :: help
10894 real(RKC) , intent(out) :: integral, abserr
10895 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10896 integer(IK) , intent(out) , contiguous :: sindex(:)
10897 integer(IK) , intent(out) :: neval
10898 integer(IK) , intent(out) :: nint
10899 integer(IK) :: err
10900 end function
10901#endif
10902
10903#if RK3_ENABLED
10904 module function QAGS_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10906 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK3
10907#endif
10908 use pm_kind, only: RKC => RK3
10909 procedure(real(RKC)) :: getFunc
10910 type(ninf_type) , intent(in) :: lb
10911 type(pinf_type) , intent(in) :: ub
10912 real(RKC) , intent(in) :: abstol
10913 real(RKC) , intent(in) :: reltol
10914 type(GK51_type) , intent(in) :: qrule
10915 type(weps_type) , intent(in) :: help
10916 real(RKC) , intent(out) :: integral, abserr
10917 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10918 integer(IK) , intent(out) , contiguous :: sindex(:)
10919 integer(IK) , intent(out) :: neval
10920 integer(IK) , intent(out) :: nint
10921 integer(IK) :: err
10922 end function
10923#endif
10924
10925#if RK2_ENABLED
10926 module function QAGS_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK2
10929#endif
10930 use pm_kind, only: RKC => RK2
10931 procedure(real(RKC)) :: getFunc
10932 type(ninf_type) , intent(in) :: lb
10933 type(pinf_type) , intent(in) :: ub
10934 real(RKC) , intent(in) :: abstol
10935 real(RKC) , intent(in) :: reltol
10936 type(GK51_type) , intent(in) :: qrule
10937 type(weps_type) , intent(in) :: help
10938 real(RKC) , intent(out) :: integral, abserr
10939 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10940 integer(IK) , intent(out) , contiguous :: sindex(:)
10941 integer(IK) , intent(out) :: neval
10942 integer(IK) , intent(out) :: nint
10943 integer(IK) :: err
10944 end function
10945#endif
10946
10947#if RK1_ENABLED
10948 module function QAGS_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10950 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK1
10951#endif
10952 use pm_kind, only: RKC => RK1
10953 procedure(real(RKC)) :: getFunc
10954 type(ninf_type) , intent(in) :: lb
10955 type(pinf_type) , intent(in) :: ub
10956 real(RKC) , intent(in) :: abstol
10957 real(RKC) , intent(in) :: reltol
10958 type(GK51_type) , intent(in) :: qrule
10959 type(weps_type) , intent(in) :: help
10960 real(RKC) , intent(out) :: integral, abserr
10961 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10962 integer(IK) , intent(out) , contiguous :: sindex(:)
10963 integer(IK) , intent(out) :: neval
10964 integer(IK) , intent(out) :: nint
10965 integer(IK) :: err
10966 end function
10967#endif
10968
10969 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10970
10971 end interface
10972
10973 ! QAGS_GK61
10974
10975 interface getQuadErr
10976
10977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10978
10979#if RK5_ENABLED
10980 module function QAGS_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10982 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK5
10983#endif
10984 use pm_kind, only: RKC => RK5
10985 procedure(real(RKC)) :: getFunc
10986 real(RKC) , intent(in) :: lb
10987 real(RKC) , intent(in) :: ub
10988 real(RKC) , intent(in) :: abstol
10989 real(RKC) , intent(in) :: reltol
10990 type(GK61_type) , intent(in) :: qrule
10991 type(weps_type) , intent(in) :: help
10992 real(RKC) , intent(out) :: integral, abserr
10993 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10994 integer(IK) , intent(out) , contiguous :: sindex(:)
10995 integer(IK) , intent(out) :: neval
10996 integer(IK) , intent(out) :: nint
10997 integer(IK) :: err
10998 end function
10999#endif
11000
11001#if RK4_ENABLED
11002 module function QAGS_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11004 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK4
11005#endif
11006 use pm_kind, only: RKC => RK4
11007 procedure(real(RKC)) :: getFunc
11008 real(RKC) , intent(in) :: lb
11009 real(RKC) , intent(in) :: ub
11010 real(RKC) , intent(in) :: abstol
11011 real(RKC) , intent(in) :: reltol
11012 type(GK61_type) , intent(in) :: qrule
11013 type(weps_type) , intent(in) :: help
11014 real(RKC) , intent(out) :: integral, abserr
11015 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11016 integer(IK) , intent(out) , contiguous :: sindex(:)
11017 integer(IK) , intent(out) :: neval
11018 integer(IK) , intent(out) :: nint
11019 integer(IK) :: err
11020 end function
11021#endif
11022
11023#if RK3_ENABLED
11024 module function QAGS_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11026 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK3
11027#endif
11028 use pm_kind, only: RKC => RK3
11029 procedure(real(RKC)) :: getFunc
11030 real(RKC) , intent(in) :: lb
11031 real(RKC) , intent(in) :: ub
11032 real(RKC) , intent(in) :: abstol
11033 real(RKC) , intent(in) :: reltol
11034 type(GK61_type) , intent(in) :: qrule
11035 type(weps_type) , intent(in) :: help
11036 real(RKC) , intent(out) :: integral, abserr
11037 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11038 integer(IK) , intent(out) , contiguous :: sindex(:)
11039 integer(IK) , intent(out) :: neval
11040 integer(IK) , intent(out) :: nint
11041 integer(IK) :: err
11042 end function
11043#endif
11044
11045#if RK2_ENABLED
11046 module function QAGS_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11048 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK2
11049#endif
11050 use pm_kind, only: RKC => RK2
11051 procedure(real(RKC)) :: getFunc
11052 real(RKC) , intent(in) :: lb
11053 real(RKC) , intent(in) :: ub
11054 real(RKC) , intent(in) :: abstol
11055 real(RKC) , intent(in) :: reltol
11056 type(GK61_type) , intent(in) :: qrule
11057 type(weps_type) , intent(in) :: help
11058 real(RKC) , intent(out) :: integral, abserr
11059 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11060 integer(IK) , intent(out) , contiguous :: sindex(:)
11061 integer(IK) , intent(out) :: neval
11062 integer(IK) , intent(out) :: nint
11063 integer(IK) :: err
11064 end function
11065#endif
11066
11067#if RK1_ENABLED
11068 module function QAGS_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11070 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK1
11071#endif
11072 use pm_kind, only: RKC => RK1
11073 procedure(real(RKC)) :: getFunc
11074 real(RKC) , intent(in) :: lb
11075 real(RKC) , intent(in) :: ub
11076 real(RKC) , intent(in) :: abstol
11077 real(RKC) , intent(in) :: reltol
11078 type(GK61_type) , intent(in) :: qrule
11079 type(weps_type) , intent(in) :: help
11080 real(RKC) , intent(out) :: integral, abserr
11081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11082 integer(IK) , intent(out) , contiguous :: sindex(:)
11083 integer(IK) , intent(out) :: neval
11084 integer(IK) , intent(out) :: nint
11085 integer(IK) :: err
11086 end function
11087#endif
11088
11089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11090
11091#if RK5_ENABLED
11092 module function QAGS_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11094 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK5
11095#endif
11096 use pm_kind, only: RKC => RK5
11097 procedure(real(RKC)) :: getFunc
11098 real(RKC) , intent(in) :: lb
11099 type(pinf_type) , intent(in) :: ub
11100 real(RKC) , intent(in) :: abstol
11101 real(RKC) , intent(in) :: reltol
11102 type(GK61_type) , intent(in) :: qrule
11103 type(weps_type) , intent(in) :: help
11104 real(RKC) , intent(out) :: integral, abserr
11105 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11106 integer(IK) , intent(out) , contiguous :: sindex(:)
11107 integer(IK) , intent(out) :: neval
11108 integer(IK) , intent(out) :: nint
11109 integer(IK) :: err
11110 end function
11111#endif
11112
11113#if RK4_ENABLED
11114 module function QAGS_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11116 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK4
11117#endif
11118 use pm_kind, only: RKC => RK4
11119 procedure(real(RKC)) :: getFunc
11120 real(RKC) , intent(in) :: lb
11121 type(pinf_type) , intent(in) :: ub
11122 real(RKC) , intent(in) :: abstol
11123 real(RKC) , intent(in) :: reltol
11124 type(GK61_type) , intent(in) :: qrule
11125 type(weps_type) , intent(in) :: help
11126 real(RKC) , intent(out) :: integral, abserr
11127 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11128 integer(IK) , intent(out) , contiguous :: sindex(:)
11129 integer(IK) , intent(out) :: neval
11130 integer(IK) , intent(out) :: nint
11131 integer(IK) :: err
11132 end function
11133#endif
11134
11135#if RK3_ENABLED
11136 module function QAGS_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11138 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK3
11139#endif
11140 use pm_kind, only: RKC => RK3
11141 procedure(real(RKC)) :: getFunc
11142 real(RKC) , intent(in) :: lb
11143 type(pinf_type) , intent(in) :: ub
11144 real(RKC) , intent(in) :: abstol
11145 real(RKC) , intent(in) :: reltol
11146 type(GK61_type) , intent(in) :: qrule
11147 type(weps_type) , intent(in) :: help
11148 real(RKC) , intent(out) :: integral, abserr
11149 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11150 integer(IK) , intent(out) , contiguous :: sindex(:)
11151 integer(IK) , intent(out) :: neval
11152 integer(IK) , intent(out) :: nint
11153 integer(IK) :: err
11154 end function
11155#endif
11156
11157#if RK2_ENABLED
11158 module function QAGS_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11160 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK2
11161#endif
11162 use pm_kind, only: RKC => RK2
11163 procedure(real(RKC)) :: getFunc
11164 real(RKC) , intent(in) :: lb
11165 type(pinf_type) , intent(in) :: ub
11166 real(RKC) , intent(in) :: abstol
11167 real(RKC) , intent(in) :: reltol
11168 type(GK61_type) , intent(in) :: qrule
11169 type(weps_type) , intent(in) :: help
11170 real(RKC) , intent(out) :: integral, abserr
11171 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11172 integer(IK) , intent(out) , contiguous :: sindex(:)
11173 integer(IK) , intent(out) :: neval
11174 integer(IK) , intent(out) :: nint
11175 integer(IK) :: err
11176 end function
11177#endif
11178
11179#if RK1_ENABLED
11180 module function QAGS_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11182 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK1
11183#endif
11184 use pm_kind, only: RKC => RK1
11185 procedure(real(RKC)) :: getFunc
11186 real(RKC) , intent(in) :: lb
11187 type(pinf_type) , intent(in) :: ub
11188 real(RKC) , intent(in) :: abstol
11189 real(RKC) , intent(in) :: reltol
11190 type(GK61_type) , intent(in) :: qrule
11191 type(weps_type) , intent(in) :: help
11192 real(RKC) , intent(out) :: integral, abserr
11193 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11194 integer(IK) , intent(out) , contiguous :: sindex(:)
11195 integer(IK) , intent(out) :: neval
11196 integer(IK) , intent(out) :: nint
11197 integer(IK) :: err
11198 end function
11199#endif
11200
11201 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11202
11203#if RK5_ENABLED
11204 module function QAGS_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11206 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK5
11207#endif
11208 use pm_kind, only: RKC => RK5
11209 procedure(real(RKC)) :: getFunc
11210 type(ninf_type) , intent(in) :: lb
11211 real(RKC) , intent(in) :: ub
11212 real(RKC) , intent(in) :: abstol
11213 real(RKC) , intent(in) :: reltol
11214 type(GK61_type) , intent(in) :: qrule
11215 type(weps_type) , intent(in) :: help
11216 real(RKC) , intent(out) :: integral, abserr
11217 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11218 integer(IK) , intent(out) , contiguous :: sindex(:)
11219 integer(IK) , intent(out) :: neval
11220 integer(IK) , intent(out) :: nint
11221 integer(IK) :: err
11222 end function
11223#endif
11224
11225#if RK4_ENABLED
11226 module function QAGS_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK4
11229#endif
11230 use pm_kind, only: RKC => RK4
11231 procedure(real(RKC)) :: getFunc
11232 type(ninf_type) , intent(in) :: lb
11233 real(RKC) , intent(in) :: ub
11234 real(RKC) , intent(in) :: abstol
11235 real(RKC) , intent(in) :: reltol
11236 type(GK61_type) , intent(in) :: qrule
11237 type(weps_type) , intent(in) :: help
11238 real(RKC) , intent(out) :: integral, abserr
11239 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11240 integer(IK) , intent(out) , contiguous :: sindex(:)
11241 integer(IK) , intent(out) :: neval
11242 integer(IK) , intent(out) :: nint
11243 integer(IK) :: err
11244 end function
11245#endif
11246
11247#if RK3_ENABLED
11248 module function QAGS_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11250 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK3
11251#endif
11252 use pm_kind, only: RKC => RK3
11253 procedure(real(RKC)) :: getFunc
11254 type(ninf_type) , intent(in) :: lb
11255 real(RKC) , intent(in) :: ub
11256 real(RKC) , intent(in) :: abstol
11257 real(RKC) , intent(in) :: reltol
11258 type(GK61_type) , intent(in) :: qrule
11259 type(weps_type) , intent(in) :: help
11260 real(RKC) , intent(out) :: integral, abserr
11261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11262 integer(IK) , intent(out) , contiguous :: sindex(:)
11263 integer(IK) , intent(out) :: neval
11264 integer(IK) , intent(out) :: nint
11265 integer(IK) :: err
11266 end function
11267#endif
11268
11269#if RK2_ENABLED
11270 module function QAGS_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK2
11273#endif
11274 use pm_kind, only: RKC => RK2
11275 procedure(real(RKC)) :: getFunc
11276 type(ninf_type) , intent(in) :: lb
11277 real(RKC) , intent(in) :: ub
11278 real(RKC) , intent(in) :: abstol
11279 real(RKC) , intent(in) :: reltol
11280 type(GK61_type) , intent(in) :: qrule
11281 type(weps_type) , intent(in) :: help
11282 real(RKC) , intent(out) :: integral, abserr
11283 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11284 integer(IK) , intent(out) , contiguous :: sindex(:)
11285 integer(IK) , intent(out) :: neval
11286 integer(IK) , intent(out) :: nint
11287 integer(IK) :: err
11288 end function
11289#endif
11290
11291#if RK1_ENABLED
11292 module function QAGS_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11294 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK1
11295#endif
11296 use pm_kind, only: RKC => RK1
11297 procedure(real(RKC)) :: getFunc
11298 type(ninf_type) , intent(in) :: lb
11299 real(RKC) , intent(in) :: ub
11300 real(RKC) , intent(in) :: abstol
11301 real(RKC) , intent(in) :: reltol
11302 type(GK61_type) , intent(in) :: qrule
11303 type(weps_type) , intent(in) :: help
11304 real(RKC) , intent(out) :: integral, abserr
11305 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11306 integer(IK) , intent(out) , contiguous :: sindex(:)
11307 integer(IK) , intent(out) :: neval
11308 integer(IK) , intent(out) :: nint
11309 integer(IK) :: err
11310 end function
11311#endif
11312
11313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11314
11315#if RK5_ENABLED
11316 module function QAGS_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11318 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK5
11319#endif
11320 use pm_kind, only: RKC => RK5
11321 procedure(real(RKC)) :: getFunc
11322 type(ninf_type) , intent(in) :: lb
11323 type(pinf_type) , intent(in) :: ub
11324 real(RKC) , intent(in) :: abstol
11325 real(RKC) , intent(in) :: reltol
11326 type(GK61_type) , intent(in) :: qrule
11327 type(weps_type) , intent(in) :: help
11328 real(RKC) , intent(out) :: integral, abserr
11329 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11330 integer(IK) , intent(out) , contiguous :: sindex(:)
11331 integer(IK) , intent(out) :: neval
11332 integer(IK) , intent(out) :: nint
11333 integer(IK) :: err
11334 end function
11335#endif
11336
11337#if RK4_ENABLED
11338 module function QAGS_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11340 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK4
11341#endif
11342 use pm_kind, only: RKC => RK4
11343 procedure(real(RKC)) :: getFunc
11344 type(ninf_type) , intent(in) :: lb
11345 type(pinf_type) , intent(in) :: ub
11346 real(RKC) , intent(in) :: abstol
11347 real(RKC) , intent(in) :: reltol
11348 type(GK61_type) , intent(in) :: qrule
11349 type(weps_type) , intent(in) :: help
11350 real(RKC) , intent(out) :: integral, abserr
11351 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11352 integer(IK) , intent(out) , contiguous :: sindex(:)
11353 integer(IK) , intent(out) :: neval
11354 integer(IK) , intent(out) :: nint
11355 integer(IK) :: err
11356 end function
11357#endif
11358
11359#if RK3_ENABLED
11360 module function QAGS_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11362 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK3
11363#endif
11364 use pm_kind, only: RKC => RK3
11365 procedure(real(RKC)) :: getFunc
11366 type(ninf_type) , intent(in) :: lb
11367 type(pinf_type) , intent(in) :: ub
11368 real(RKC) , intent(in) :: abstol
11369 real(RKC) , intent(in) :: reltol
11370 type(GK61_type) , intent(in) :: qrule
11371 type(weps_type) , intent(in) :: help
11372 real(RKC) , intent(out) :: integral, abserr
11373 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11374 integer(IK) , intent(out) , contiguous :: sindex(:)
11375 integer(IK) , intent(out) :: neval
11376 integer(IK) , intent(out) :: nint
11377 integer(IK) :: err
11378 end function
11379#endif
11380
11381#if RK2_ENABLED
11382 module function QAGS_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11384 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK2
11385#endif
11386 use pm_kind, only: RKC => RK2
11387 procedure(real(RKC)) :: getFunc
11388 type(ninf_type) , intent(in) :: lb
11389 type(pinf_type) , intent(in) :: ub
11390 real(RKC) , intent(in) :: abstol
11391 real(RKC) , intent(in) :: reltol
11392 type(GK61_type) , intent(in) :: qrule
11393 type(weps_type) , intent(in) :: help
11394 real(RKC) , intent(out) :: integral, abserr
11395 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11396 integer(IK) , intent(out) , contiguous :: sindex(:)
11397 integer(IK) , intent(out) :: neval
11398 integer(IK) , intent(out) :: nint
11399 integer(IK) :: err
11400 end function
11401#endif
11402
11403#if RK1_ENABLED
11404 module function QAGS_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11406 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK1
11407#endif
11408 use pm_kind, only: RKC => RK1
11409 procedure(real(RKC)) :: getFunc
11410 type(ninf_type) , intent(in) :: lb
11411 type(pinf_type) , intent(in) :: ub
11412 real(RKC) , intent(in) :: abstol
11413 real(RKC) , intent(in) :: reltol
11414 type(GK61_type) , intent(in) :: qrule
11415 type(weps_type) , intent(in) :: help
11416 real(RKC) , intent(out) :: integral, abserr
11417 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11418 integer(IK) , intent(out) , contiguous :: sindex(:)
11419 integer(IK) , intent(out) :: neval
11420 integer(IK) , intent(out) :: nint
11421 integer(IK) :: err
11422 end function
11423#endif
11424
11425 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11426
11427 end interface
11428
11429 ! QAGS_GKXX
11430
11431 interface getQuadErr
11432
11433 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11434
11435#if RK5_ENABLED
11436 module function QAGS_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11438 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK5
11439#endif
11440 use pm_kind, only: RKC => RK5
11441 procedure(real(RKC)) :: getFunc
11442 real(RKC) , intent(in) :: lb
11443 real(RKC) , intent(in) :: ub
11444 real(RKC) , intent(in) :: abstol
11445 real(RKC) , intent(in) :: reltol
11446 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11447 type(weps_type) , intent(in) :: help
11448 real(RKC) , intent(out) :: integral, abserr
11449 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11450 integer(IK) , intent(out) , contiguous :: sindex(:)
11451 integer(IK) , intent(out) :: neval
11452 integer(IK) , intent(out) :: nint
11453 integer(IK) :: err
11454 end function
11455#endif
11456
11457#if RK4_ENABLED
11458 module function QAGS_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11460 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK4
11461#endif
11462 use pm_kind, only: RKC => RK4
11463 procedure(real(RKC)) :: getFunc
11464 real(RKC) , intent(in) :: lb
11465 real(RKC) , intent(in) :: ub
11466 real(RKC) , intent(in) :: abstol
11467 real(RKC) , intent(in) :: reltol
11468 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11469 type(weps_type) , intent(in) :: help
11470 real(RKC) , intent(out) :: integral, abserr
11471 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11472 integer(IK) , intent(out) , contiguous :: sindex(:)
11473 integer(IK) , intent(out) :: neval
11474 integer(IK) , intent(out) :: nint
11475 integer(IK) :: err
11476 end function
11477#endif
11478
11479#if RK3_ENABLED
11480 module function QAGS_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11482 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK3
11483#endif
11484 use pm_kind, only: RKC => RK3
11485 procedure(real(RKC)) :: getFunc
11486 real(RKC) , intent(in) :: lb
11487 real(RKC) , intent(in) :: ub
11488 real(RKC) , intent(in) :: abstol
11489 real(RKC) , intent(in) :: reltol
11490 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11491 type(weps_type) , intent(in) :: help
11492 real(RKC) , intent(out) :: integral, abserr
11493 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11494 integer(IK) , intent(out) , contiguous :: sindex(:)
11495 integer(IK) , intent(out) :: neval
11496 integer(IK) , intent(out) :: nint
11497 integer(IK) :: err
11498 end function
11499#endif
11500
11501#if RK2_ENABLED
11502 module function QAGS_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11504 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK2
11505#endif
11506 use pm_kind, only: RKC => RK2
11507 procedure(real(RKC)) :: getFunc
11508 real(RKC) , intent(in) :: lb
11509 real(RKC) , intent(in) :: ub
11510 real(RKC) , intent(in) :: abstol
11511 real(RKC) , intent(in) :: reltol
11512 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11513 type(weps_type) , intent(in) :: help
11514 real(RKC) , intent(out) :: integral, abserr
11515 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11516 integer(IK) , intent(out) , contiguous :: sindex(:)
11517 integer(IK) , intent(out) :: neval
11518 integer(IK) , intent(out) :: nint
11519 integer(IK) :: err
11520 end function
11521#endif
11522
11523#if RK1_ENABLED
11524 module function QAGS_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11526 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK1
11527#endif
11528 use pm_kind, only: RKC => RK1
11529 procedure(real(RKC)) :: getFunc
11530 real(RKC) , intent(in) :: lb
11531 real(RKC) , intent(in) :: ub
11532 real(RKC) , intent(in) :: abstol
11533 real(RKC) , intent(in) :: reltol
11534 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11535 type(weps_type) , intent(in) :: help
11536 real(RKC) , intent(out) :: integral, abserr
11537 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11538 integer(IK) , intent(out) , contiguous :: sindex(:)
11539 integer(IK) , intent(out) :: neval
11540 integer(IK) , intent(out) :: nint
11541 integer(IK) :: err
11542 end function
11543#endif
11544
11545 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11546
11547#if RK5_ENABLED
11548 module function QAGS_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11550 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK5
11551#endif
11552 use pm_kind, only: RKC => RK5
11553 procedure(real(RKC)) :: getFunc
11554 real(RKC) , intent(in) :: lb
11555 type(pinf_type) , intent(in) :: ub
11556 real(RKC) , intent(in) :: abstol
11557 real(RKC) , intent(in) :: reltol
11558 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11559 type(weps_type) , intent(in) :: help
11560 real(RKC) , intent(out) :: integral, abserr
11561 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11562 integer(IK) , intent(out) , contiguous :: sindex(:)
11563 integer(IK) , intent(out) :: neval
11564 integer(IK) , intent(out) :: nint
11565 integer(IK) :: err
11566 end function
11567#endif
11568
11569#if RK4_ENABLED
11570 module function QAGS_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11572 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK4
11573#endif
11574 use pm_kind, only: RKC => RK4
11575 procedure(real(RKC)) :: getFunc
11576 real(RKC) , intent(in) :: lb
11577 type(pinf_type) , intent(in) :: ub
11578 real(RKC) , intent(in) :: abstol
11579 real(RKC) , intent(in) :: reltol
11580 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11581 type(weps_type) , intent(in) :: help
11582 real(RKC) , intent(out) :: integral, abserr
11583 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11584 integer(IK) , intent(out) , contiguous :: sindex(:)
11585 integer(IK) , intent(out) :: neval
11586 integer(IK) , intent(out) :: nint
11587 integer(IK) :: err
11588 end function
11589#endif
11590
11591#if RK3_ENABLED
11592 module function QAGS_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11594 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK3
11595#endif
11596 use pm_kind, only: RKC => RK3
11597 procedure(real(RKC)) :: getFunc
11598 real(RKC) , intent(in) :: lb
11599 type(pinf_type) , intent(in) :: ub
11600 real(RKC) , intent(in) :: abstol
11601 real(RKC) , intent(in) :: reltol
11602 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11603 type(weps_type) , intent(in) :: help
11604 real(RKC) , intent(out) :: integral, abserr
11605 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11606 integer(IK) , intent(out) , contiguous :: sindex(:)
11607 integer(IK) , intent(out) :: neval
11608 integer(IK) , intent(out) :: nint
11609 integer(IK) :: err
11610 end function
11611#endif
11612
11613#if RK2_ENABLED
11614 module function QAGS_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11616 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK2
11617#endif
11618 use pm_kind, only: RKC => RK2
11619 procedure(real(RKC)) :: getFunc
11620 real(RKC) , intent(in) :: lb
11621 type(pinf_type) , intent(in) :: ub
11622 real(RKC) , intent(in) :: abstol
11623 real(RKC) , intent(in) :: reltol
11624 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11625 type(weps_type) , intent(in) :: help
11626 real(RKC) , intent(out) :: integral, abserr
11627 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11628 integer(IK) , intent(out) , contiguous :: sindex(:)
11629 integer(IK) , intent(out) :: neval
11630 integer(IK) , intent(out) :: nint
11631 integer(IK) :: err
11632 end function
11633#endif
11634
11635#if RK1_ENABLED
11636 module function QAGS_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11638 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK1
11639#endif
11640 use pm_kind, only: RKC => RK1
11641 procedure(real(RKC)) :: getFunc
11642 real(RKC) , intent(in) :: lb
11643 type(pinf_type) , intent(in) :: ub
11644 real(RKC) , intent(in) :: abstol
11645 real(RKC) , intent(in) :: reltol
11646 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11647 type(weps_type) , intent(in) :: help
11648 real(RKC) , intent(out) :: integral, abserr
11649 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11650 integer(IK) , intent(out) , contiguous :: sindex(:)
11651 integer(IK) , intent(out) :: neval
11652 integer(IK) , intent(out) :: nint
11653 integer(IK) :: err
11654 end function
11655#endif
11656
11657 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11658
11659#if RK5_ENABLED
11660 module function QAGS_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11662 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK5
11663#endif
11664 use pm_kind, only: RKC => RK5
11665 procedure(real(RKC)) :: getFunc
11666 type(ninf_type) , intent(in) :: lb
11667 real(RKC) , intent(in) :: ub
11668 real(RKC) , intent(in) :: abstol
11669 real(RKC) , intent(in) :: reltol
11670 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11671 type(weps_type) , intent(in) :: help
11672 real(RKC) , intent(out) :: integral, abserr
11673 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11674 integer(IK) , intent(out) , contiguous :: sindex(:)
11675 integer(IK) , intent(out) :: neval
11676 integer(IK) , intent(out) :: nint
11677 integer(IK) :: err
11678 end function
11679#endif
11680
11681#if RK4_ENABLED
11682 module function QAGS_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11684 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK4
11685#endif
11686 use pm_kind, only: RKC => RK4
11687 procedure(real(RKC)) :: getFunc
11688 type(ninf_type) , intent(in) :: lb
11689 real(RKC) , intent(in) :: ub
11690 real(RKC) , intent(in) :: abstol
11691 real(RKC) , intent(in) :: reltol
11692 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11693 type(weps_type) , intent(in) :: help
11694 real(RKC) , intent(out) :: integral, abserr
11695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11696 integer(IK) , intent(out) , contiguous :: sindex(:)
11697 integer(IK) , intent(out) :: neval
11698 integer(IK) , intent(out) :: nint
11699 integer(IK) :: err
11700 end function
11701#endif
11702
11703#if RK3_ENABLED
11704 module function QAGS_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK3
11707#endif
11708 use pm_kind, only: RKC => RK3
11709 procedure(real(RKC)) :: getFunc
11710 type(ninf_type) , intent(in) :: lb
11711 real(RKC) , intent(in) :: ub
11712 real(RKC) , intent(in) :: abstol
11713 real(RKC) , intent(in) :: reltol
11714 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11715 type(weps_type) , intent(in) :: help
11716 real(RKC) , intent(out) :: integral, abserr
11717 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11718 integer(IK) , intent(out) , contiguous :: sindex(:)
11719 integer(IK) , intent(out) :: neval
11720 integer(IK) , intent(out) :: nint
11721 integer(IK) :: err
11722 end function
11723#endif
11724
11725#if RK2_ENABLED
11726 module function QAGS_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11728 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK2
11729#endif
11730 use pm_kind, only: RKC => RK2
11731 procedure(real(RKC)) :: getFunc
11732 type(ninf_type) , intent(in) :: lb
11733 real(RKC) , intent(in) :: ub
11734 real(RKC) , intent(in) :: abstol
11735 real(RKC) , intent(in) :: reltol
11736 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11737 type(weps_type) , intent(in) :: help
11738 real(RKC) , intent(out) :: integral, abserr
11739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11740 integer(IK) , intent(out) , contiguous :: sindex(:)
11741 integer(IK) , intent(out) :: neval
11742 integer(IK) , intent(out) :: nint
11743 integer(IK) :: err
11744 end function
11745#endif
11746
11747#if RK1_ENABLED
11748 module function QAGS_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK1
11751#endif
11752 use pm_kind, only: RKC => RK1
11753 procedure(real(RKC)) :: getFunc
11754 type(ninf_type) , intent(in) :: lb
11755 real(RKC) , intent(in) :: ub
11756 real(RKC) , intent(in) :: abstol
11757 real(RKC) , intent(in) :: reltol
11758 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11759 type(weps_type) , intent(in) :: help
11760 real(RKC) , intent(out) :: integral, abserr
11761 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11762 integer(IK) , intent(out) , contiguous :: sindex(:)
11763 integer(IK) , intent(out) :: neval
11764 integer(IK) , intent(out) :: nint
11765 integer(IK) :: err
11766 end function
11767#endif
11768
11769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11770
11771#if RK5_ENABLED
11772 module function QAGS_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11774 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK5
11775#endif
11776 use pm_kind, only: RKC => RK5
11777 procedure(real(RKC)) :: getFunc
11778 type(ninf_type) , intent(in) :: lb
11779 type(pinf_type) , intent(in) :: ub
11780 real(RKC) , intent(in) :: abstol
11781 real(RKC) , intent(in) :: reltol
11782 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11783 type(weps_type) , intent(in) :: help
11784 real(RKC) , intent(out) :: integral, abserr
11785 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11786 integer(IK) , intent(out) , contiguous :: sindex(:)
11787 integer(IK) , intent(out) :: neval
11788 integer(IK) , intent(out) :: nint
11789 integer(IK) :: err
11790 end function
11791#endif
11792
11793#if RK4_ENABLED
11794 module function QAGS_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11796 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK4
11797#endif
11798 use pm_kind, only: RKC => RK4
11799 procedure(real(RKC)) :: getFunc
11800 type(ninf_type) , intent(in) :: lb
11801 type(pinf_type) , intent(in) :: ub
11802 real(RKC) , intent(in) :: abstol
11803 real(RKC) , intent(in) :: reltol
11804 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11805 type(weps_type) , intent(in) :: help
11806 real(RKC) , intent(out) :: integral, abserr
11807 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11808 integer(IK) , intent(out) , contiguous :: sindex(:)
11809 integer(IK) , intent(out) :: neval
11810 integer(IK) , intent(out) :: nint
11811 integer(IK) :: err
11812 end function
11813#endif
11814
11815#if RK3_ENABLED
11816 module function QAGS_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11818 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK3
11819#endif
11820 use pm_kind, only: RKC => RK3
11821 procedure(real(RKC)) :: getFunc
11822 type(ninf_type) , intent(in) :: lb
11823 type(pinf_type) , intent(in) :: ub
11824 real(RKC) , intent(in) :: abstol
11825 real(RKC) , intent(in) :: reltol
11826 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11827 type(weps_type) , intent(in) :: help
11828 real(RKC) , intent(out) :: integral, abserr
11829 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11830 integer(IK) , intent(out) , contiguous :: sindex(:)
11831 integer(IK) , intent(out) :: neval
11832 integer(IK) , intent(out) :: nint
11833 integer(IK) :: err
11834 end function
11835#endif
11836
11837#if RK2_ENABLED
11838 module function QAGS_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11840 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK2
11841#endif
11842 use pm_kind, only: RKC => RK2
11843 procedure(real(RKC)) :: getFunc
11844 type(ninf_type) , intent(in) :: lb
11845 type(pinf_type) , intent(in) :: ub
11846 real(RKC) , intent(in) :: abstol
11847 real(RKC) , intent(in) :: reltol
11848 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11849 type(weps_type) , intent(in) :: help
11850 real(RKC) , intent(out) :: integral, abserr
11851 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11852 integer(IK) , intent(out) , contiguous :: sindex(:)
11853 integer(IK) , intent(out) :: neval
11854 integer(IK) , intent(out) :: nint
11855 integer(IK) :: err
11856 end function
11857#endif
11858
11859#if RK1_ENABLED
11860 module function QAGS_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11862 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK1
11863#endif
11864 use pm_kind, only: RKC => RK1
11865 procedure(real(RKC)) :: getFunc
11866 type(ninf_type) , intent(in) :: lb
11867 type(pinf_type) , intent(in) :: ub
11868 real(RKC) , intent(in) :: abstol
11869 real(RKC) , intent(in) :: reltol
11870 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11871 type(weps_type) , intent(in) :: help
11872 real(RKC) , intent(out) :: integral, abserr
11873 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11874 integer(IK) , intent(out) , contiguous :: sindex(:)
11875 integer(IK) , intent(out) :: neval
11876 integer(IK) , intent(out) :: nint
11877 integer(IK) :: err
11878 end function
11879#endif
11880
11881 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11882
11883 end interface
11884
11885!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11886
11887 ! QAGP_GK15
11888
11889 interface getQuadErr
11890
11891 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11892
11893#if RK5_ENABLED
11894 module function QAGP_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK5
11897#endif
11898 use pm_kind, only: RKC => RK5
11899 procedure(real(RKC)) :: getFunc
11900 real(RKC) , intent(in) :: lb
11901 real(RKC) , intent(in) :: ub
11902 real(RKC) , intent(in) :: abstol
11903 real(RKC) , intent(in) :: reltol
11904 type(GK15_type) , intent(in) :: qrule
11905 real(RKC) , intent(in) , contiguous :: help(:)
11906 real(RKC) , intent(out) :: integral, abserr
11907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11908 integer(IK) , intent(out) , contiguous :: sindex(:)
11909 integer(IK) , intent(out) :: neval
11910 integer(IK) , intent(out) :: nint
11911 integer(IK) :: err
11912 end function
11913#endif
11914
11915#if RK4_ENABLED
11916 module function QAGP_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11918 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK4
11919#endif
11920 use pm_kind, only: RKC => RK4
11921 procedure(real(RKC)) :: getFunc
11922 real(RKC) , intent(in) :: lb
11923 real(RKC) , intent(in) :: ub
11924 real(RKC) , intent(in) :: abstol
11925 real(RKC) , intent(in) :: reltol
11926 type(GK15_type) , intent(in) :: qrule
11927 real(RKC) , intent(in) , contiguous :: help(:)
11928 real(RKC) , intent(out) :: integral, abserr
11929 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11930 integer(IK) , intent(out) , contiguous :: sindex(:)
11931 integer(IK) , intent(out) :: neval
11932 integer(IK) , intent(out) :: nint
11933 integer(IK) :: err
11934 end function
11935#endif
11936
11937#if RK3_ENABLED
11938 module function QAGP_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK3
11941#endif
11942 use pm_kind, only: RKC => RK3
11943 procedure(real(RKC)) :: getFunc
11944 real(RKC) , intent(in) :: lb
11945 real(RKC) , intent(in) :: ub
11946 real(RKC) , intent(in) :: abstol
11947 real(RKC) , intent(in) :: reltol
11948 type(GK15_type) , intent(in) :: qrule
11949 real(RKC) , intent(in) , contiguous :: help(:)
11950 real(RKC) , intent(out) :: integral, abserr
11951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11952 integer(IK) , intent(out) , contiguous :: sindex(:)
11953 integer(IK) , intent(out) :: neval
11954 integer(IK) , intent(out) :: nint
11955 integer(IK) :: err
11956 end function
11957#endif
11958
11959#if RK2_ENABLED
11960 module function QAGP_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK2
11963#endif
11964 use pm_kind, only: RKC => RK2
11965 procedure(real(RKC)) :: getFunc
11966 real(RKC) , intent(in) :: lb
11967 real(RKC) , intent(in) :: ub
11968 real(RKC) , intent(in) :: abstol
11969 real(RKC) , intent(in) :: reltol
11970 type(GK15_type) , intent(in) :: qrule
11971 real(RKC) , intent(in) , contiguous :: help(:)
11972 real(RKC) , intent(out) :: integral, abserr
11973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11974 integer(IK) , intent(out) , contiguous :: sindex(:)
11975 integer(IK) , intent(out) :: neval
11976 integer(IK) , intent(out) :: nint
11977 integer(IK) :: err
11978 end function
11979#endif
11980
11981#if RK1_ENABLED
11982 module function QAGP_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11984 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK1
11985#endif
11986 use pm_kind, only: RKC => RK1
11987 procedure(real(RKC)) :: getFunc
11988 real(RKC) , intent(in) :: lb
11989 real(RKC) , intent(in) :: ub
11990 real(RKC) , intent(in) :: abstol
11991 real(RKC) , intent(in) :: reltol
11992 type(GK15_type) , intent(in) :: qrule
11993 real(RKC) , intent(in) , contiguous :: help(:)
11994 real(RKC) , intent(out) :: integral, abserr
11995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11996 integer(IK) , intent(out) , contiguous :: sindex(:)
11997 integer(IK) , intent(out) :: neval
11998 integer(IK) , intent(out) :: nint
11999 integer(IK) :: err
12000 end function
12001#endif
12002
12003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12004
12005#if RK5_ENABLED
12006 module function QAGP_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK5
12009#endif
12010 use pm_kind, only: RKC => RK5
12011 procedure(real(RKC)) :: getFunc
12012 real(RKC) , intent(in) :: lb
12013 type(pinf_type) , intent(in) :: ub
12014 real(RKC) , intent(in) :: abstol
12015 real(RKC) , intent(in) :: reltol
12016 type(GK15_type) , intent(in) :: qrule
12017 real(RKC) , intent(in) , contiguous :: help(:)
12018 real(RKC) , intent(out) :: integral, abserr
12019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12020 integer(IK) , intent(out) , contiguous :: sindex(:)
12021 integer(IK) , intent(out) :: neval
12022 integer(IK) , intent(out) :: nint
12023 integer(IK) :: err
12024 end function
12025#endif
12026
12027#if RK4_ENABLED
12028 module function QAGP_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12030 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK4
12031#endif
12032 use pm_kind, only: RKC => RK4
12033 procedure(real(RKC)) :: getFunc
12034 real(RKC) , intent(in) :: lb
12035 type(pinf_type) , intent(in) :: ub
12036 real(RKC) , intent(in) :: abstol
12037 real(RKC) , intent(in) :: reltol
12038 type(GK15_type) , intent(in) :: qrule
12039 real(RKC) , intent(in) , contiguous :: help(:)
12040 real(RKC) , intent(out) :: integral, abserr
12041 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12042 integer(IK) , intent(out) , contiguous :: sindex(:)
12043 integer(IK) , intent(out) :: neval
12044 integer(IK) , intent(out) :: nint
12045 integer(IK) :: err
12046 end function
12047#endif
12048
12049#if RK3_ENABLED
12050 module function QAGP_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK3
12053#endif
12054 use pm_kind, only: RKC => RK3
12055 procedure(real(RKC)) :: getFunc
12056 real(RKC) , intent(in) :: lb
12057 type(pinf_type) , intent(in) :: ub
12058 real(RKC) , intent(in) :: abstol
12059 real(RKC) , intent(in) :: reltol
12060 type(GK15_type) , intent(in) :: qrule
12061 real(RKC) , intent(in) , contiguous :: help(:)
12062 real(RKC) , intent(out) :: integral, abserr
12063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12064 integer(IK) , intent(out) , contiguous :: sindex(:)
12065 integer(IK) , intent(out) :: neval
12066 integer(IK) , intent(out) :: nint
12067 integer(IK) :: err
12068 end function
12069#endif
12070
12071#if RK2_ENABLED
12072 module function QAGP_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK2
12075#endif
12076 use pm_kind, only: RKC => RK2
12077 procedure(real(RKC)) :: getFunc
12078 real(RKC) , intent(in) :: lb
12079 type(pinf_type) , intent(in) :: ub
12080 real(RKC) , intent(in) :: abstol
12081 real(RKC) , intent(in) :: reltol
12082 type(GK15_type) , intent(in) :: qrule
12083 real(RKC) , intent(in) , contiguous :: help(:)
12084 real(RKC) , intent(out) :: integral, abserr
12085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12086 integer(IK) , intent(out) , contiguous :: sindex(:)
12087 integer(IK) , intent(out) :: neval
12088 integer(IK) , intent(out) :: nint
12089 integer(IK) :: err
12090 end function
12091#endif
12092
12093#if RK1_ENABLED
12094 module function QAGP_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12096 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK1
12097#endif
12098 use pm_kind, only: RKC => RK1
12099 procedure(real(RKC)) :: getFunc
12100 real(RKC) , intent(in) :: lb
12101 type(pinf_type) , intent(in) :: ub
12102 real(RKC) , intent(in) :: abstol
12103 real(RKC) , intent(in) :: reltol
12104 type(GK15_type) , intent(in) :: qrule
12105 real(RKC) , intent(in) , contiguous :: help(:)
12106 real(RKC) , intent(out) :: integral, abserr
12107 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12108 integer(IK) , intent(out) , contiguous :: sindex(:)
12109 integer(IK) , intent(out) :: neval
12110 integer(IK) , intent(out) :: nint
12111 integer(IK) :: err
12112 end function
12113#endif
12114
12115 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12116
12117#if RK5_ENABLED
12118 module function QAGP_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12120 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK5
12121#endif
12122 use pm_kind, only: RKC => RK5
12123 procedure(real(RKC)) :: getFunc
12124 type(ninf_type) , intent(in) :: lb
12125 real(RKC) , intent(in) :: ub
12126 real(RKC) , intent(in) :: abstol
12127 real(RKC) , intent(in) :: reltol
12128 type(GK15_type) , intent(in) :: qrule
12129 real(RKC) , intent(in) , contiguous :: help(:)
12130 real(RKC) , intent(out) :: integral, abserr
12131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12132 integer(IK) , intent(out) , contiguous :: sindex(:)
12133 integer(IK) , intent(out) :: neval
12134 integer(IK) , intent(out) :: nint
12135 integer(IK) :: err
12136 end function
12137#endif
12138
12139#if RK4_ENABLED
12140 module function QAGP_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK4
12143#endif
12144 use pm_kind, only: RKC => RK4
12145 procedure(real(RKC)) :: getFunc
12146 type(ninf_type) , intent(in) :: lb
12147 real(RKC) , intent(in) :: ub
12148 real(RKC) , intent(in) :: abstol
12149 real(RKC) , intent(in) :: reltol
12150 type(GK15_type) , intent(in) :: qrule
12151 real(RKC) , intent(in) , contiguous :: help(:)
12152 real(RKC) , intent(out) :: integral, abserr
12153 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12154 integer(IK) , intent(out) , contiguous :: sindex(:)
12155 integer(IK) , intent(out) :: neval
12156 integer(IK) , intent(out) :: nint
12157 integer(IK) :: err
12158 end function
12159#endif
12160
12161#if RK3_ENABLED
12162 module function QAGP_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12164 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK3
12165#endif
12166 use pm_kind, only: RKC => RK3
12167 procedure(real(RKC)) :: getFunc
12168 type(ninf_type) , intent(in) :: lb
12169 real(RKC) , intent(in) :: ub
12170 real(RKC) , intent(in) :: abstol
12171 real(RKC) , intent(in) :: reltol
12172 type(GK15_type) , intent(in) :: qrule
12173 real(RKC) , intent(in) , contiguous :: help(:)
12174 real(RKC) , intent(out) :: integral, abserr
12175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12176 integer(IK) , intent(out) , contiguous :: sindex(:)
12177 integer(IK) , intent(out) :: neval
12178 integer(IK) , intent(out) :: nint
12179 integer(IK) :: err
12180 end function
12181#endif
12182
12183#if RK2_ENABLED
12184 module function QAGP_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK2
12187#endif
12188 use pm_kind, only: RKC => RK2
12189 procedure(real(RKC)) :: getFunc
12190 type(ninf_type) , intent(in) :: lb
12191 real(RKC) , intent(in) :: ub
12192 real(RKC) , intent(in) :: abstol
12193 real(RKC) , intent(in) :: reltol
12194 type(GK15_type) , intent(in) :: qrule
12195 real(RKC) , intent(in) , contiguous :: help(:)
12196 real(RKC) , intent(out) :: integral, abserr
12197 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12198 integer(IK) , intent(out) , contiguous :: sindex(:)
12199 integer(IK) , intent(out) :: neval
12200 integer(IK) , intent(out) :: nint
12201 integer(IK) :: err
12202 end function
12203#endif
12204
12205#if RK1_ENABLED
12206 module function QAGP_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12208 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK1
12209#endif
12210 use pm_kind, only: RKC => RK1
12211 procedure(real(RKC)) :: getFunc
12212 type(ninf_type) , intent(in) :: lb
12213 real(RKC) , intent(in) :: ub
12214 real(RKC) , intent(in) :: abstol
12215 real(RKC) , intent(in) :: reltol
12216 type(GK15_type) , intent(in) :: qrule
12217 real(RKC) , intent(in) , contiguous :: help(:)
12218 real(RKC) , intent(out) :: integral, abserr
12219 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12220 integer(IK) , intent(out) , contiguous :: sindex(:)
12221 integer(IK) , intent(out) :: neval
12222 integer(IK) , intent(out) :: nint
12223 integer(IK) :: err
12224 end function
12225#endif
12226
12227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12228
12229#if RK5_ENABLED
12230 module function QAGP_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12232 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK5
12233#endif
12234 use pm_kind, only: RKC => RK5
12235 procedure(real(RKC)) :: getFunc
12236 type(ninf_type) , intent(in) :: lb
12237 type(pinf_type) , intent(in) :: ub
12238 real(RKC) , intent(in) :: abstol
12239 real(RKC) , intent(in) :: reltol
12240 type(GK15_type) , intent(in) :: qrule
12241 real(RKC) , intent(in) , contiguous :: help(:)
12242 real(RKC) , intent(out) :: integral, abserr
12243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12244 integer(IK) , intent(out) , contiguous :: sindex(:)
12245 integer(IK) , intent(out) :: neval
12246 integer(IK) , intent(out) :: nint
12247 integer(IK) :: err
12248 end function
12249#endif
12250
12251#if RK4_ENABLED
12252 module function QAGP_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12254 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK4
12255#endif
12256 use pm_kind, only: RKC => RK4
12257 procedure(real(RKC)) :: getFunc
12258 type(ninf_type) , intent(in) :: lb
12259 type(pinf_type) , intent(in) :: ub
12260 real(RKC) , intent(in) :: abstol
12261 real(RKC) , intent(in) :: reltol
12262 type(GK15_type) , intent(in) :: qrule
12263 real(RKC) , intent(in) , contiguous :: help(:)
12264 real(RKC) , intent(out) :: integral, abserr
12265 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12266 integer(IK) , intent(out) , contiguous :: sindex(:)
12267 integer(IK) , intent(out) :: neval
12268 integer(IK) , intent(out) :: nint
12269 integer(IK) :: err
12270 end function
12271#endif
12272
12273#if RK3_ENABLED
12274 module function QAGP_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12276 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK3
12277#endif
12278 use pm_kind, only: RKC => RK3
12279 procedure(real(RKC)) :: getFunc
12280 type(ninf_type) , intent(in) :: lb
12281 type(pinf_type) , intent(in) :: ub
12282 real(RKC) , intent(in) :: abstol
12283 real(RKC) , intent(in) :: reltol
12284 type(GK15_type) , intent(in) :: qrule
12285 real(RKC) , intent(in) , contiguous :: help(:)
12286 real(RKC) , intent(out) :: integral, abserr
12287 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12288 integer(IK) , intent(out) , contiguous :: sindex(:)
12289 integer(IK) , intent(out) :: neval
12290 integer(IK) , intent(out) :: nint
12291 integer(IK) :: err
12292 end function
12293#endif
12294
12295#if RK2_ENABLED
12296 module function QAGP_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12298 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK2
12299#endif
12300 use pm_kind, only: RKC => RK2
12301 procedure(real(RKC)) :: getFunc
12302 type(ninf_type) , intent(in) :: lb
12303 type(pinf_type) , intent(in) :: ub
12304 real(RKC) , intent(in) :: abstol
12305 real(RKC) , intent(in) :: reltol
12306 type(GK15_type) , intent(in) :: qrule
12307 real(RKC) , intent(in) , contiguous :: help(:)
12308 real(RKC) , intent(out) :: integral, abserr
12309 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12310 integer(IK) , intent(out) , contiguous :: sindex(:)
12311 integer(IK) , intent(out) :: neval
12312 integer(IK) , intent(out) :: nint
12313 integer(IK) :: err
12314 end function
12315#endif
12316
12317#if RK1_ENABLED
12318 module function QAGP_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12320 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK1
12321#endif
12322 use pm_kind, only: RKC => RK1
12323 procedure(real(RKC)) :: getFunc
12324 type(ninf_type) , intent(in) :: lb
12325 type(pinf_type) , intent(in) :: ub
12326 real(RKC) , intent(in) :: abstol
12327 real(RKC) , intent(in) :: reltol
12328 type(GK15_type) , intent(in) :: qrule
12329 real(RKC) , intent(in) , contiguous :: help(:)
12330 real(RKC) , intent(out) :: integral, abserr
12331 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12332 integer(IK) , intent(out) , contiguous :: sindex(:)
12333 integer(IK) , intent(out) :: neval
12334 integer(IK) , intent(out) :: nint
12335 integer(IK) :: err
12336 end function
12337#endif
12338
12339 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12340
12341 end interface
12342
12343 ! QAGP_GK21
12344
12345 interface getQuadErr
12346
12347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12348
12349#if RK5_ENABLED
12350 module function QAGP_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK5
12353#endif
12354 use pm_kind, only: RKC => RK5
12355 procedure(real(RKC)) :: getFunc
12356 real(RKC) , intent(in) :: lb
12357 real(RKC) , intent(in) :: ub
12358 real(RKC) , intent(in) :: abstol
12359 real(RKC) , intent(in) :: reltol
12360 type(GK21_type) , intent(in) :: qrule
12361 real(RKC) , intent(in) , contiguous :: help(:)
12362 real(RKC) , intent(out) :: integral, abserr
12363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12364 integer(IK) , intent(out) , contiguous :: sindex(:)
12365 integer(IK) , intent(out) :: neval
12366 integer(IK) , intent(out) :: nint
12367 integer(IK) :: err
12368 end function
12369#endif
12370
12371#if RK4_ENABLED
12372 module function QAGP_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12374 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK4
12375#endif
12376 use pm_kind, only: RKC => RK4
12377 procedure(real(RKC)) :: getFunc
12378 real(RKC) , intent(in) :: lb
12379 real(RKC) , intent(in) :: ub
12380 real(RKC) , intent(in) :: abstol
12381 real(RKC) , intent(in) :: reltol
12382 type(GK21_type) , intent(in) :: qrule
12383 real(RKC) , intent(in) , contiguous :: help(:)
12384 real(RKC) , intent(out) :: integral, abserr
12385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12386 integer(IK) , intent(out) , contiguous :: sindex(:)
12387 integer(IK) , intent(out) :: neval
12388 integer(IK) , intent(out) :: nint
12389 integer(IK) :: err
12390 end function
12391#endif
12392
12393#if RK3_ENABLED
12394 module function QAGP_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK3
12397#endif
12398 use pm_kind, only: RKC => RK3
12399 procedure(real(RKC)) :: getFunc
12400 real(RKC) , intent(in) :: lb
12401 real(RKC) , intent(in) :: ub
12402 real(RKC) , intent(in) :: abstol
12403 real(RKC) , intent(in) :: reltol
12404 type(GK21_type) , intent(in) :: qrule
12405 real(RKC) , intent(in) , contiguous :: help(:)
12406 real(RKC) , intent(out) :: integral, abserr
12407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12408 integer(IK) , intent(out) , contiguous :: sindex(:)
12409 integer(IK) , intent(out) :: neval
12410 integer(IK) , intent(out) :: nint
12411 integer(IK) :: err
12412 end function
12413#endif
12414
12415#if RK2_ENABLED
12416 module function QAGP_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK2
12419#endif
12420 use pm_kind, only: RKC => RK2
12421 procedure(real(RKC)) :: getFunc
12422 real(RKC) , intent(in) :: lb
12423 real(RKC) , intent(in) :: ub
12424 real(RKC) , intent(in) :: abstol
12425 real(RKC) , intent(in) :: reltol
12426 type(GK21_type) , intent(in) :: qrule
12427 real(RKC) , intent(in) , contiguous :: help(:)
12428 real(RKC) , intent(out) :: integral, abserr
12429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12430 integer(IK) , intent(out) , contiguous :: sindex(:)
12431 integer(IK) , intent(out) :: neval
12432 integer(IK) , intent(out) :: nint
12433 integer(IK) :: err
12434 end function
12435#endif
12436
12437#if RK1_ENABLED
12438 module function QAGP_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12440 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK1
12441#endif
12442 use pm_kind, only: RKC => RK1
12443 procedure(real(RKC)) :: getFunc
12444 real(RKC) , intent(in) :: lb
12445 real(RKC) , intent(in) :: ub
12446 real(RKC) , intent(in) :: abstol
12447 real(RKC) , intent(in) :: reltol
12448 type(GK21_type) , intent(in) :: qrule
12449 real(RKC) , intent(in) , contiguous :: help(:)
12450 real(RKC) , intent(out) :: integral, abserr
12451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12452 integer(IK) , intent(out) , contiguous :: sindex(:)
12453 integer(IK) , intent(out) :: neval
12454 integer(IK) , intent(out) :: nint
12455 integer(IK) :: err
12456 end function
12457#endif
12458
12459 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12460
12461#if RK5_ENABLED
12462 module function QAGP_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK5
12465#endif
12466 use pm_kind, only: RKC => RK5
12467 procedure(real(RKC)) :: getFunc
12468 real(RKC) , intent(in) :: lb
12469 type(pinf_type) , intent(in) :: ub
12470 real(RKC) , intent(in) :: abstol
12471 real(RKC) , intent(in) :: reltol
12472 type(GK21_type) , intent(in) :: qrule
12473 real(RKC) , intent(in) , contiguous :: help(:)
12474 real(RKC) , intent(out) :: integral, abserr
12475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12476 integer(IK) , intent(out) , contiguous :: sindex(:)
12477 integer(IK) , intent(out) :: neval
12478 integer(IK) , intent(out) :: nint
12479 integer(IK) :: err
12480 end function
12481#endif
12482
12483#if RK4_ENABLED
12484 module function QAGP_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12486 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK4
12487#endif
12488 use pm_kind, only: RKC => RK4
12489 procedure(real(RKC)) :: getFunc
12490 real(RKC) , intent(in) :: lb
12491 type(pinf_type) , intent(in) :: ub
12492 real(RKC) , intent(in) :: abstol
12493 real(RKC) , intent(in) :: reltol
12494 type(GK21_type) , intent(in) :: qrule
12495 real(RKC) , intent(in) , contiguous :: help(:)
12496 real(RKC) , intent(out) :: integral, abserr
12497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12498 integer(IK) , intent(out) , contiguous :: sindex(:)
12499 integer(IK) , intent(out) :: neval
12500 integer(IK) , intent(out) :: nint
12501 integer(IK) :: err
12502 end function
12503#endif
12504
12505#if RK3_ENABLED
12506 module function QAGP_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK3
12509#endif
12510 use pm_kind, only: RKC => RK3
12511 procedure(real(RKC)) :: getFunc
12512 real(RKC) , intent(in) :: lb
12513 type(pinf_type) , intent(in) :: ub
12514 real(RKC) , intent(in) :: abstol
12515 real(RKC) , intent(in) :: reltol
12516 type(GK21_type) , intent(in) :: qrule
12517 real(RKC) , intent(in) , contiguous :: help(:)
12518 real(RKC) , intent(out) :: integral, abserr
12519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12520 integer(IK) , intent(out) , contiguous :: sindex(:)
12521 integer(IK) , intent(out) :: neval
12522 integer(IK) , intent(out) :: nint
12523 integer(IK) :: err
12524 end function
12525#endif
12526
12527#if RK2_ENABLED
12528 module function QAGP_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK2
12531#endif
12532 use pm_kind, only: RKC => RK2
12533 procedure(real(RKC)) :: getFunc
12534 real(RKC) , intent(in) :: lb
12535 type(pinf_type) , intent(in) :: ub
12536 real(RKC) , intent(in) :: abstol
12537 real(RKC) , intent(in) :: reltol
12538 type(GK21_type) , intent(in) :: qrule
12539 real(RKC) , intent(in) , contiguous :: help(:)
12540 real(RKC) , intent(out) :: integral, abserr
12541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12542 integer(IK) , intent(out) , contiguous :: sindex(:)
12543 integer(IK) , intent(out) :: neval
12544 integer(IK) , intent(out) :: nint
12545 integer(IK) :: err
12546 end function
12547#endif
12548
12549#if RK1_ENABLED
12550 module function QAGP_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12552 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK1
12553#endif
12554 use pm_kind, only: RKC => RK1
12555 procedure(real(RKC)) :: getFunc
12556 real(RKC) , intent(in) :: lb
12557 type(pinf_type) , intent(in) :: ub
12558 real(RKC) , intent(in) :: abstol
12559 real(RKC) , intent(in) :: reltol
12560 type(GK21_type) , intent(in) :: qrule
12561 real(RKC) , intent(in) , contiguous :: help(:)
12562 real(RKC) , intent(out) :: integral, abserr
12563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12564 integer(IK) , intent(out) , contiguous :: sindex(:)
12565 integer(IK) , intent(out) :: neval
12566 integer(IK) , intent(out) :: nint
12567 integer(IK) :: err
12568 end function
12569#endif
12570
12571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12572
12573#if RK5_ENABLED
12574 module function QAGP_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12576 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK5
12577#endif
12578 use pm_kind, only: RKC => RK5
12579 procedure(real(RKC)) :: getFunc
12580 type(ninf_type) , intent(in) :: lb
12581 real(RKC) , intent(in) :: ub
12582 real(RKC) , intent(in) :: abstol
12583 real(RKC) , intent(in) :: reltol
12584 type(GK21_type) , intent(in) :: qrule
12585 real(RKC) , intent(in) , contiguous :: help(:)
12586 real(RKC) , intent(out) :: integral, abserr
12587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12588 integer(IK) , intent(out) , contiguous :: sindex(:)
12589 integer(IK) , intent(out) :: neval
12590 integer(IK) , intent(out) :: nint
12591 integer(IK) :: err
12592 end function
12593#endif
12594
12595#if RK4_ENABLED
12596 module function QAGP_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12598 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK4
12599#endif
12600 use pm_kind, only: RKC => RK4
12601 procedure(real(RKC)) :: getFunc
12602 type(ninf_type) , intent(in) :: lb
12603 real(RKC) , intent(in) :: ub
12604 real(RKC) , intent(in) :: abstol
12605 real(RKC) , intent(in) :: reltol
12606 type(GK21_type) , intent(in) :: qrule
12607 real(RKC) , intent(in) , contiguous :: help(:)
12608 real(RKC) , intent(out) :: integral, abserr
12609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12610 integer(IK) , intent(out) , contiguous :: sindex(:)
12611 integer(IK) , intent(out) :: neval
12612 integer(IK) , intent(out) :: nint
12613 integer(IK) :: err
12614 end function
12615#endif
12616
12617#if RK3_ENABLED
12618 module function QAGP_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK3
12621#endif
12622 use pm_kind, only: RKC => RK3
12623 procedure(real(RKC)) :: getFunc
12624 type(ninf_type) , intent(in) :: lb
12625 real(RKC) , intent(in) :: ub
12626 real(RKC) , intent(in) :: abstol
12627 real(RKC) , intent(in) :: reltol
12628 type(GK21_type) , intent(in) :: qrule
12629 real(RKC) , intent(in) , contiguous :: help(:)
12630 real(RKC) , intent(out) :: integral, abserr
12631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12632 integer(IK) , intent(out) , contiguous :: sindex(:)
12633 integer(IK) , intent(out) :: neval
12634 integer(IK) , intent(out) :: nint
12635 integer(IK) :: err
12636 end function
12637#endif
12638
12639#if RK2_ENABLED
12640 module function QAGP_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12642 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK2
12643#endif
12644 use pm_kind, only: RKC => RK2
12645 procedure(real(RKC)) :: getFunc
12646 type(ninf_type) , intent(in) :: lb
12647 real(RKC) , intent(in) :: ub
12648 real(RKC) , intent(in) :: abstol
12649 real(RKC) , intent(in) :: reltol
12650 type(GK21_type) , intent(in) :: qrule
12651 real(RKC) , intent(in) , contiguous :: help(:)
12652 real(RKC) , intent(out) :: integral, abserr
12653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12654 integer(IK) , intent(out) , contiguous :: sindex(:)
12655 integer(IK) , intent(out) :: neval
12656 integer(IK) , intent(out) :: nint
12657 integer(IK) :: err
12658 end function
12659#endif
12660
12661#if RK1_ENABLED
12662 module function QAGP_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK1
12665#endif
12666 use pm_kind, only: RKC => RK1
12667 procedure(real(RKC)) :: getFunc
12668 type(ninf_type) , intent(in) :: lb
12669 real(RKC) , intent(in) :: ub
12670 real(RKC) , intent(in) :: abstol
12671 real(RKC) , intent(in) :: reltol
12672 type(GK21_type) , intent(in) :: qrule
12673 real(RKC) , intent(in) , contiguous :: help(:)
12674 real(RKC) , intent(out) :: integral, abserr
12675 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12676 integer(IK) , intent(out) , contiguous :: sindex(:)
12677 integer(IK) , intent(out) :: neval
12678 integer(IK) , intent(out) :: nint
12679 integer(IK) :: err
12680 end function
12681#endif
12682
12683 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12684
12685#if RK5_ENABLED
12686 module function QAGP_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12688 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK5
12689#endif
12690 use pm_kind, only: RKC => RK5
12691 procedure(real(RKC)) :: getFunc
12692 type(ninf_type) , intent(in) :: lb
12693 type(pinf_type) , intent(in) :: ub
12694 real(RKC) , intent(in) :: abstol
12695 real(RKC) , intent(in) :: reltol
12696 type(GK21_type) , intent(in) :: qrule
12697 real(RKC) , intent(in) , contiguous :: help(:)
12698 real(RKC) , intent(out) :: integral, abserr
12699 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12700 integer(IK) , intent(out) , contiguous :: sindex(:)
12701 integer(IK) , intent(out) :: neval
12702 integer(IK) , intent(out) :: nint
12703 integer(IK) :: err
12704 end function
12705#endif
12706
12707#if RK4_ENABLED
12708 module function QAGP_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12710 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK4
12711#endif
12712 use pm_kind, only: RKC => RK4
12713 procedure(real(RKC)) :: getFunc
12714 type(ninf_type) , intent(in) :: lb
12715 type(pinf_type) , intent(in) :: ub
12716 real(RKC) , intent(in) :: abstol
12717 real(RKC) , intent(in) :: reltol
12718 type(GK21_type) , intent(in) :: qrule
12719 real(RKC) , intent(in) , contiguous :: help(:)
12720 real(RKC) , intent(out) :: integral, abserr
12721 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12722 integer(IK) , intent(out) , contiguous :: sindex(:)
12723 integer(IK) , intent(out) :: neval
12724 integer(IK) , intent(out) :: nint
12725 integer(IK) :: err
12726 end function
12727#endif
12728
12729#if RK3_ENABLED
12730 module function QAGP_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12732 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK3
12733#endif
12734 use pm_kind, only: RKC => RK3
12735 procedure(real(RKC)) :: getFunc
12736 type(ninf_type) , intent(in) :: lb
12737 type(pinf_type) , intent(in) :: ub
12738 real(RKC) , intent(in) :: abstol
12739 real(RKC) , intent(in) :: reltol
12740 type(GK21_type) , intent(in) :: qrule
12741 real(RKC) , intent(in) , contiguous :: help(:)
12742 real(RKC) , intent(out) :: integral, abserr
12743 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12744 integer(IK) , intent(out) , contiguous :: sindex(:)
12745 integer(IK) , intent(out) :: neval
12746 integer(IK) , intent(out) :: nint
12747 integer(IK) :: err
12748 end function
12749#endif
12750
12751#if RK2_ENABLED
12752 module function QAGP_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12754 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK2
12755#endif
12756 use pm_kind, only: RKC => RK2
12757 procedure(real(RKC)) :: getFunc
12758 type(ninf_type) , intent(in) :: lb
12759 type(pinf_type) , intent(in) :: ub
12760 real(RKC) , intent(in) :: abstol
12761 real(RKC) , intent(in) :: reltol
12762 type(GK21_type) , intent(in) :: qrule
12763 real(RKC) , intent(in) , contiguous :: help(:)
12764 real(RKC) , intent(out) :: integral, abserr
12765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12766 integer(IK) , intent(out) , contiguous :: sindex(:)
12767 integer(IK) , intent(out) :: neval
12768 integer(IK) , intent(out) :: nint
12769 integer(IK) :: err
12770 end function
12771#endif
12772
12773#if RK1_ENABLED
12774 module function QAGP_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12776 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK1
12777#endif
12778 use pm_kind, only: RKC => RK1
12779 procedure(real(RKC)) :: getFunc
12780 type(ninf_type) , intent(in) :: lb
12781 type(pinf_type) , intent(in) :: ub
12782 real(RKC) , intent(in) :: abstol
12783 real(RKC) , intent(in) :: reltol
12784 type(GK21_type) , intent(in) :: qrule
12785 real(RKC) , intent(in) , contiguous :: help(:)
12786 real(RKC) , intent(out) :: integral, abserr
12787 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12788 integer(IK) , intent(out) , contiguous :: sindex(:)
12789 integer(IK) , intent(out) :: neval
12790 integer(IK) , intent(out) :: nint
12791 integer(IK) :: err
12792 end function
12793#endif
12794
12795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12796
12797 end interface
12798
12799 ! QAGP_GK31
12800
12801 interface getQuadErr
12802
12803 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12804
12805#if RK5_ENABLED
12806 module function QAGP_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK5
12809#endif
12810 use pm_kind, only: RKC => RK5
12811 procedure(real(RKC)) :: getFunc
12812 real(RKC) , intent(in) :: lb
12813 real(RKC) , intent(in) :: ub
12814 real(RKC) , intent(in) :: abstol
12815 real(RKC) , intent(in) :: reltol
12816 type(GK31_type) , intent(in) :: qrule
12817 real(RKC) , intent(in) , contiguous :: help(:)
12818 real(RKC) , intent(out) :: integral, abserr
12819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12820 integer(IK) , intent(out) , contiguous :: sindex(:)
12821 integer(IK) , intent(out) :: neval
12822 integer(IK) , intent(out) :: nint
12823 integer(IK) :: err
12824 end function
12825#endif
12826
12827#if RK4_ENABLED
12828 module function QAGP_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12830 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK4
12831#endif
12832 use pm_kind, only: RKC => RK4
12833 procedure(real(RKC)) :: getFunc
12834 real(RKC) , intent(in) :: lb
12835 real(RKC) , intent(in) :: ub
12836 real(RKC) , intent(in) :: abstol
12837 real(RKC) , intent(in) :: reltol
12838 type(GK31_type) , intent(in) :: qrule
12839 real(RKC) , intent(in) , contiguous :: help(:)
12840 real(RKC) , intent(out) :: integral, abserr
12841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12842 integer(IK) , intent(out) , contiguous :: sindex(:)
12843 integer(IK) , intent(out) :: neval
12844 integer(IK) , intent(out) :: nint
12845 integer(IK) :: err
12846 end function
12847#endif
12848
12849#if RK3_ENABLED
12850 module function QAGP_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK3
12853#endif
12854 use pm_kind, only: RKC => RK3
12855 procedure(real(RKC)) :: getFunc
12856 real(RKC) , intent(in) :: lb
12857 real(RKC) , intent(in) :: ub
12858 real(RKC) , intent(in) :: abstol
12859 real(RKC) , intent(in) :: reltol
12860 type(GK31_type) , intent(in) :: qrule
12861 real(RKC) , intent(in) , contiguous :: help(:)
12862 real(RKC) , intent(out) :: integral, abserr
12863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12864 integer(IK) , intent(out) , contiguous :: sindex(:)
12865 integer(IK) , intent(out) :: neval
12866 integer(IK) , intent(out) :: nint
12867 integer(IK) :: err
12868 end function
12869#endif
12870
12871#if RK2_ENABLED
12872 module function QAGP_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK2
12875#endif
12876 use pm_kind, only: RKC => RK2
12877 procedure(real(RKC)) :: getFunc
12878 real(RKC) , intent(in) :: lb
12879 real(RKC) , intent(in) :: ub
12880 real(RKC) , intent(in) :: abstol
12881 real(RKC) , intent(in) :: reltol
12882 type(GK31_type) , intent(in) :: qrule
12883 real(RKC) , intent(in) , contiguous :: help(:)
12884 real(RKC) , intent(out) :: integral, abserr
12885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12886 integer(IK) , intent(out) , contiguous :: sindex(:)
12887 integer(IK) , intent(out) :: neval
12888 integer(IK) , intent(out) :: nint
12889 integer(IK) :: err
12890 end function
12891#endif
12892
12893#if RK1_ENABLED
12894 module function QAGP_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK1
12897#endif
12898 use pm_kind, only: RKC => RK1
12899 procedure(real(RKC)) :: getFunc
12900 real(RKC) , intent(in) :: lb
12901 real(RKC) , intent(in) :: ub
12902 real(RKC) , intent(in) :: abstol
12903 real(RKC) , intent(in) :: reltol
12904 type(GK31_type) , intent(in) :: qrule
12905 real(RKC) , intent(in) , contiguous :: help(:)
12906 real(RKC) , intent(out) :: integral, abserr
12907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12908 integer(IK) , intent(out) , contiguous :: sindex(:)
12909 integer(IK) , intent(out) :: neval
12910 integer(IK) , intent(out) :: nint
12911 integer(IK) :: err
12912 end function
12913#endif
12914
12915 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12916
12917#if RK5_ENABLED
12918 module function QAGP_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK5
12921#endif
12922 use pm_kind, only: RKC => RK5
12923 procedure(real(RKC)) :: getFunc
12924 real(RKC) , intent(in) :: lb
12925 type(pinf_type) , intent(in) :: ub
12926 real(RKC) , intent(in) :: abstol
12927 real(RKC) , intent(in) :: reltol
12928 type(GK31_type) , intent(in) :: qrule
12929 real(RKC) , intent(in) , contiguous :: help(:)
12930 real(RKC) , intent(out) :: integral, abserr
12931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12932 integer(IK) , intent(out) , contiguous :: sindex(:)
12933 integer(IK) , intent(out) :: neval
12934 integer(IK) , intent(out) :: nint
12935 integer(IK) :: err
12936 end function
12937#endif
12938
12939#if RK4_ENABLED
12940 module function QAGP_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12942 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK4
12943#endif
12944 use pm_kind, only: RKC => RK4
12945 procedure(real(RKC)) :: getFunc
12946 real(RKC) , intent(in) :: lb
12947 type(pinf_type) , intent(in) :: ub
12948 real(RKC) , intent(in) :: abstol
12949 real(RKC) , intent(in) :: reltol
12950 type(GK31_type) , intent(in) :: qrule
12951 real(RKC) , intent(in) , contiguous :: help(:)
12952 real(RKC) , intent(out) :: integral, abserr
12953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12954 integer(IK) , intent(out) , contiguous :: sindex(:)
12955 integer(IK) , intent(out) :: neval
12956 integer(IK) , intent(out) :: nint
12957 integer(IK) :: err
12958 end function
12959#endif
12960
12961#if RK3_ENABLED
12962 module function QAGP_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK3
12965#endif
12966 use pm_kind, only: RKC => RK3
12967 procedure(real(RKC)) :: getFunc
12968 real(RKC) , intent(in) :: lb
12969 type(pinf_type) , intent(in) :: ub
12970 real(RKC) , intent(in) :: abstol
12971 real(RKC) , intent(in) :: reltol
12972 type(GK31_type) , intent(in) :: qrule
12973 real(RKC) , intent(in) , contiguous :: help(:)
12974 real(RKC) , intent(out) :: integral, abserr
12975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12976 integer(IK) , intent(out) , contiguous :: sindex(:)
12977 integer(IK) , intent(out) :: neval
12978 integer(IK) , intent(out) :: nint
12979 integer(IK) :: err
12980 end function
12981#endif
12982
12983#if RK2_ENABLED
12984 module function QAGP_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK2
12987#endif
12988 use pm_kind, only: RKC => RK2
12989 procedure(real(RKC)) :: getFunc
12990 real(RKC) , intent(in) :: lb
12991 type(pinf_type) , intent(in) :: ub
12992 real(RKC) , intent(in) :: abstol
12993 real(RKC) , intent(in) :: reltol
12994 type(GK31_type) , intent(in) :: qrule
12995 real(RKC) , intent(in) , contiguous :: help(:)
12996 real(RKC) , intent(out) :: integral, abserr
12997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12998 integer(IK) , intent(out) , contiguous :: sindex(:)
12999 integer(IK) , intent(out) :: neval
13000 integer(IK) , intent(out) :: nint
13001 integer(IK) :: err
13002 end function
13003#endif
13004
13005#if RK1_ENABLED
13006 module function QAGP_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK1
13009#endif
13010 use pm_kind, only: RKC => RK1
13011 procedure(real(RKC)) :: getFunc
13012 real(RKC) , intent(in) :: lb
13013 type(pinf_type) , intent(in) :: ub
13014 real(RKC) , intent(in) :: abstol
13015 real(RKC) , intent(in) :: reltol
13016 type(GK31_type) , intent(in) :: qrule
13017 real(RKC) , intent(in) , contiguous :: help(:)
13018 real(RKC) , intent(out) :: integral, abserr
13019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13020 integer(IK) , intent(out) , contiguous :: sindex(:)
13021 integer(IK) , intent(out) :: neval
13022 integer(IK) , intent(out) :: nint
13023 integer(IK) :: err
13024 end function
13025#endif
13026
13027 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13028
13029#if RK5_ENABLED
13030 module function QAGP_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK5
13033#endif
13034 use pm_kind, only: RKC => RK5
13035 procedure(real(RKC)) :: getFunc
13036 type(ninf_type) , intent(in) :: lb
13037 real(RKC) , intent(in) :: ub
13038 real(RKC) , intent(in) :: abstol
13039 real(RKC) , intent(in) :: reltol
13040 type(GK31_type) , intent(in) :: qrule
13041 real(RKC) , intent(in) , contiguous :: help(:)
13042 real(RKC) , intent(out) :: integral, abserr
13043 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13044 integer(IK) , intent(out) , contiguous :: sindex(:)
13045 integer(IK) , intent(out) :: neval
13046 integer(IK) , intent(out) :: nint
13047 integer(IK) :: err
13048 end function
13049#endif
13050
13051#if RK4_ENABLED
13052 module function QAGP_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13054 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK4
13055#endif
13056 use pm_kind, only: RKC => RK4
13057 procedure(real(RKC)) :: getFunc
13058 type(ninf_type) , intent(in) :: lb
13059 real(RKC) , intent(in) :: ub
13060 real(RKC) , intent(in) :: abstol
13061 real(RKC) , intent(in) :: reltol
13062 type(GK31_type) , intent(in) :: qrule
13063 real(RKC) , intent(in) , contiguous :: help(:)
13064 real(RKC) , intent(out) :: integral, abserr
13065 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13066 integer(IK) , intent(out) , contiguous :: sindex(:)
13067 integer(IK) , intent(out) :: neval
13068 integer(IK) , intent(out) :: nint
13069 integer(IK) :: err
13070 end function
13071#endif
13072
13073#if RK3_ENABLED
13074 module function QAGP_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13076 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK3
13077#endif
13078 use pm_kind, only: RKC => RK3
13079 procedure(real(RKC)) :: getFunc
13080 type(ninf_type) , intent(in) :: lb
13081 real(RKC) , intent(in) :: ub
13082 real(RKC) , intent(in) :: abstol
13083 real(RKC) , intent(in) :: reltol
13084 type(GK31_type) , intent(in) :: qrule
13085 real(RKC) , intent(in) , contiguous :: help(:)
13086 real(RKC) , intent(out) :: integral, abserr
13087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13088 integer(IK) , intent(out) , contiguous :: sindex(:)
13089 integer(IK) , intent(out) :: neval
13090 integer(IK) , intent(out) :: nint
13091 integer(IK) :: err
13092 end function
13093#endif
13094
13095#if RK2_ENABLED
13096 module function QAGP_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13098 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK2
13099#endif
13100 use pm_kind, only: RKC => RK2
13101 procedure(real(RKC)) :: getFunc
13102 type(ninf_type) , intent(in) :: lb
13103 real(RKC) , intent(in) :: ub
13104 real(RKC) , intent(in) :: abstol
13105 real(RKC) , intent(in) :: reltol
13106 type(GK31_type) , intent(in) :: qrule
13107 real(RKC) , intent(in) , contiguous :: help(:)
13108 real(RKC) , intent(out) :: integral, abserr
13109 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13110 integer(IK) , intent(out) , contiguous :: sindex(:)
13111 integer(IK) , intent(out) :: neval
13112 integer(IK) , intent(out) :: nint
13113 integer(IK) :: err
13114 end function
13115#endif
13116
13117#if RK1_ENABLED
13118 module function QAGP_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13120 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK1
13121#endif
13122 use pm_kind, only: RKC => RK1
13123 procedure(real(RKC)) :: getFunc
13124 type(ninf_type) , intent(in) :: lb
13125 real(RKC) , intent(in) :: ub
13126 real(RKC) , intent(in) :: abstol
13127 real(RKC) , intent(in) :: reltol
13128 type(GK31_type) , intent(in) :: qrule
13129 real(RKC) , intent(in) , contiguous :: help(:)
13130 real(RKC) , intent(out) :: integral, abserr
13131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13132 integer(IK) , intent(out) , contiguous :: sindex(:)
13133 integer(IK) , intent(out) :: neval
13134 integer(IK) , intent(out) :: nint
13135 integer(IK) :: err
13136 end function
13137#endif
13138
13139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13140
13141#if RK5_ENABLED
13142 module function QAGP_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK5
13145#endif
13146 use pm_kind, only: RKC => RK5
13147 procedure(real(RKC)) :: getFunc
13148 type(ninf_type) , intent(in) :: lb
13149 type(pinf_type) , intent(in) :: ub
13150 real(RKC) , intent(in) :: abstol
13151 real(RKC) , intent(in) :: reltol
13152 type(GK31_type) , intent(in) :: qrule
13153 real(RKC) , intent(in) , contiguous :: help(:)
13154 real(RKC) , intent(out) :: integral, abserr
13155 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13156 integer(IK) , intent(out) , contiguous :: sindex(:)
13157 integer(IK) , intent(out) :: neval
13158 integer(IK) , intent(out) :: nint
13159 integer(IK) :: err
13160 end function
13161#endif
13162
13163#if RK4_ENABLED
13164 module function QAGP_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13166 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK4
13167#endif
13168 use pm_kind, only: RKC => RK4
13169 procedure(real(RKC)) :: getFunc
13170 type(ninf_type) , intent(in) :: lb
13171 type(pinf_type) , intent(in) :: ub
13172 real(RKC) , intent(in) :: abstol
13173 real(RKC) , intent(in) :: reltol
13174 type(GK31_type) , intent(in) :: qrule
13175 real(RKC) , intent(in) , contiguous :: help(:)
13176 real(RKC) , intent(out) :: integral, abserr
13177 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13178 integer(IK) , intent(out) , contiguous :: sindex(:)
13179 integer(IK) , intent(out) :: neval
13180 integer(IK) , intent(out) :: nint
13181 integer(IK) :: err
13182 end function
13183#endif
13184
13185#if RK3_ENABLED
13186 module function QAGP_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13188 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK3
13189#endif
13190 use pm_kind, only: RKC => RK3
13191 procedure(real(RKC)) :: getFunc
13192 type(ninf_type) , intent(in) :: lb
13193 type(pinf_type) , intent(in) :: ub
13194 real(RKC) , intent(in) :: abstol
13195 real(RKC) , intent(in) :: reltol
13196 type(GK31_type) , intent(in) :: qrule
13197 real(RKC) , intent(in) , contiguous :: help(:)
13198 real(RKC) , intent(out) :: integral, abserr
13199 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13200 integer(IK) , intent(out) , contiguous :: sindex(:)
13201 integer(IK) , intent(out) :: neval
13202 integer(IK) , intent(out) :: nint
13203 integer(IK) :: err
13204 end function
13205#endif
13206
13207#if RK2_ENABLED
13208 module function QAGP_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13210 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK2
13211#endif
13212 use pm_kind, only: RKC => RK2
13213 procedure(real(RKC)) :: getFunc
13214 type(ninf_type) , intent(in) :: lb
13215 type(pinf_type) , intent(in) :: ub
13216 real(RKC) , intent(in) :: abstol
13217 real(RKC) , intent(in) :: reltol
13218 type(GK31_type) , intent(in) :: qrule
13219 real(RKC) , intent(in) , contiguous :: help(:)
13220 real(RKC) , intent(out) :: integral, abserr
13221 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13222 integer(IK) , intent(out) , contiguous :: sindex(:)
13223 integer(IK) , intent(out) :: neval
13224 integer(IK) , intent(out) :: nint
13225 integer(IK) :: err
13226 end function
13227#endif
13228
13229#if RK1_ENABLED
13230 module function QAGP_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13232 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK1
13233#endif
13234 use pm_kind, only: RKC => RK1
13235 procedure(real(RKC)) :: getFunc
13236 type(ninf_type) , intent(in) :: lb
13237 type(pinf_type) , intent(in) :: ub
13238 real(RKC) , intent(in) :: abstol
13239 real(RKC) , intent(in) :: reltol
13240 type(GK31_type) , intent(in) :: qrule
13241 real(RKC) , intent(in) , contiguous :: help(:)
13242 real(RKC) , intent(out) :: integral, abserr
13243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13244 integer(IK) , intent(out) , contiguous :: sindex(:)
13245 integer(IK) , intent(out) :: neval
13246 integer(IK) , intent(out) :: nint
13247 integer(IK) :: err
13248 end function
13249#endif
13250
13251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13252
13253 end interface
13254
13255 ! QAGP_GK41
13256
13257 interface getQuadErr
13258
13259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13260
13261#if RK5_ENABLED
13262 module function QAGP_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13264 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK5
13265#endif
13266 use pm_kind, only: RKC => RK5
13267 procedure(real(RKC)) :: getFunc
13268 real(RKC) , intent(in) :: lb
13269 real(RKC) , intent(in) :: ub
13270 real(RKC) , intent(in) :: abstol
13271 real(RKC) , intent(in) :: reltol
13272 type(GK41_type) , intent(in) :: qrule
13273 real(RKC) , intent(in) , contiguous :: help(:)
13274 real(RKC) , intent(out) :: integral, abserr
13275 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13276 integer(IK) , intent(out) , contiguous :: sindex(:)
13277 integer(IK) , intent(out) :: neval
13278 integer(IK) , intent(out) :: nint
13279 integer(IK) :: err
13280 end function
13281#endif
13282
13283#if RK4_ENABLED
13284 module function QAGP_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13286 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK4
13287#endif
13288 use pm_kind, only: RKC => RK4
13289 procedure(real(RKC)) :: getFunc
13290 real(RKC) , intent(in) :: lb
13291 real(RKC) , intent(in) :: ub
13292 real(RKC) , intent(in) :: abstol
13293 real(RKC) , intent(in) :: reltol
13294 type(GK41_type) , intent(in) :: qrule
13295 real(RKC) , intent(in) , contiguous :: help(:)
13296 real(RKC) , intent(out) :: integral, abserr
13297 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13298 integer(IK) , intent(out) , contiguous :: sindex(:)
13299 integer(IK) , intent(out) :: neval
13300 integer(IK) , intent(out) :: nint
13301 integer(IK) :: err
13302 end function
13303#endif
13304
13305#if RK3_ENABLED
13306 module function QAGP_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13308 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK3
13309#endif
13310 use pm_kind, only: RKC => RK3
13311 procedure(real(RKC)) :: getFunc
13312 real(RKC) , intent(in) :: lb
13313 real(RKC) , intent(in) :: ub
13314 real(RKC) , intent(in) :: abstol
13315 real(RKC) , intent(in) :: reltol
13316 type(GK41_type) , intent(in) :: qrule
13317 real(RKC) , intent(in) , contiguous :: help(:)
13318 real(RKC) , intent(out) :: integral, abserr
13319 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13320 integer(IK) , intent(out) , contiguous :: sindex(:)
13321 integer(IK) , intent(out) :: neval
13322 integer(IK) , intent(out) :: nint
13323 integer(IK) :: err
13324 end function
13325#endif
13326
13327#if RK2_ENABLED
13328 module function QAGP_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13330 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK2
13331#endif
13332 use pm_kind, only: RKC => RK2
13333 procedure(real(RKC)) :: getFunc
13334 real(RKC) , intent(in) :: lb
13335 real(RKC) , intent(in) :: ub
13336 real(RKC) , intent(in) :: abstol
13337 real(RKC) , intent(in) :: reltol
13338 type(GK41_type) , intent(in) :: qrule
13339 real(RKC) , intent(in) , contiguous :: help(:)
13340 real(RKC) , intent(out) :: integral, abserr
13341 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13342 integer(IK) , intent(out) , contiguous :: sindex(:)
13343 integer(IK) , intent(out) :: neval
13344 integer(IK) , intent(out) :: nint
13345 integer(IK) :: err
13346 end function
13347#endif
13348
13349#if RK1_ENABLED
13350 module function QAGP_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK1
13353#endif
13354 use pm_kind, only: RKC => RK1
13355 procedure(real(RKC)) :: getFunc
13356 real(RKC) , intent(in) :: lb
13357 real(RKC) , intent(in) :: ub
13358 real(RKC) , intent(in) :: abstol
13359 real(RKC) , intent(in) :: reltol
13360 type(GK41_type) , intent(in) :: qrule
13361 real(RKC) , intent(in) , contiguous :: help(:)
13362 real(RKC) , intent(out) :: integral, abserr
13363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13364 integer(IK) , intent(out) , contiguous :: sindex(:)
13365 integer(IK) , intent(out) :: neval
13366 integer(IK) , intent(out) :: nint
13367 integer(IK) :: err
13368 end function
13369#endif
13370
13371 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13372
13373#if RK5_ENABLED
13374 module function QAGP_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13376 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK5
13377#endif
13378 use pm_kind, only: RKC => RK5
13379 procedure(real(RKC)) :: getFunc
13380 real(RKC) , intent(in) :: lb
13381 type(pinf_type) , intent(in) :: ub
13382 real(RKC) , intent(in) :: abstol
13383 real(RKC) , intent(in) :: reltol
13384 type(GK41_type) , intent(in) :: qrule
13385 real(RKC) , intent(in) , contiguous :: help(:)
13386 real(RKC) , intent(out) :: integral, abserr
13387 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13388 integer(IK) , intent(out) , contiguous :: sindex(:)
13389 integer(IK) , intent(out) :: neval
13390 integer(IK) , intent(out) :: nint
13391 integer(IK) :: err
13392 end function
13393#endif
13394
13395#if RK4_ENABLED
13396 module function QAGP_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13398 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK4
13399#endif
13400 use pm_kind, only: RKC => RK4
13401 procedure(real(RKC)) :: getFunc
13402 real(RKC) , intent(in) :: lb
13403 type(pinf_type) , intent(in) :: ub
13404 real(RKC) , intent(in) :: abstol
13405 real(RKC) , intent(in) :: reltol
13406 type(GK41_type) , intent(in) :: qrule
13407 real(RKC) , intent(in) , contiguous :: help(:)
13408 real(RKC) , intent(out) :: integral, abserr
13409 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13410 integer(IK) , intent(out) , contiguous :: sindex(:)
13411 integer(IK) , intent(out) :: neval
13412 integer(IK) , intent(out) :: nint
13413 integer(IK) :: err
13414 end function
13415#endif
13416
13417#if RK3_ENABLED
13418 module function QAGP_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13420 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK3
13421#endif
13422 use pm_kind, only: RKC => RK3
13423 procedure(real(RKC)) :: getFunc
13424 real(RKC) , intent(in) :: lb
13425 type(pinf_type) , intent(in) :: ub
13426 real(RKC) , intent(in) :: abstol
13427 real(RKC) , intent(in) :: reltol
13428 type(GK41_type) , intent(in) :: qrule
13429 real(RKC) , intent(in) , contiguous :: help(:)
13430 real(RKC) , intent(out) :: integral, abserr
13431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13432 integer(IK) , intent(out) , contiguous :: sindex(:)
13433 integer(IK) , intent(out) :: neval
13434 integer(IK) , intent(out) :: nint
13435 integer(IK) :: err
13436 end function
13437#endif
13438
13439#if RK2_ENABLED
13440 module function QAGP_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13442 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK2
13443#endif
13444 use pm_kind, only: RKC => RK2
13445 procedure(real(RKC)) :: getFunc
13446 real(RKC) , intent(in) :: lb
13447 type(pinf_type) , intent(in) :: ub
13448 real(RKC) , intent(in) :: abstol
13449 real(RKC) , intent(in) :: reltol
13450 type(GK41_type) , intent(in) :: qrule
13451 real(RKC) , intent(in) , contiguous :: help(:)
13452 real(RKC) , intent(out) :: integral, abserr
13453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13454 integer(IK) , intent(out) , contiguous :: sindex(:)
13455 integer(IK) , intent(out) :: neval
13456 integer(IK) , intent(out) :: nint
13457 integer(IK) :: err
13458 end function
13459#endif
13460
13461#if RK1_ENABLED
13462 module function QAGP_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK1
13465#endif
13466 use pm_kind, only: RKC => RK1
13467 procedure(real(RKC)) :: getFunc
13468 real(RKC) , intent(in) :: lb
13469 type(pinf_type) , intent(in) :: ub
13470 real(RKC) , intent(in) :: abstol
13471 real(RKC) , intent(in) :: reltol
13472 type(GK41_type) , intent(in) :: qrule
13473 real(RKC) , intent(in) , contiguous :: help(:)
13474 real(RKC) , intent(out) :: integral, abserr
13475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13476 integer(IK) , intent(out) , contiguous :: sindex(:)
13477 integer(IK) , intent(out) :: neval
13478 integer(IK) , intent(out) :: nint
13479 integer(IK) :: err
13480 end function
13481#endif
13482
13483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13484
13485#if RK5_ENABLED
13486 module function QAGP_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13488 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK5
13489#endif
13490 use pm_kind, only: RKC => RK5
13491 procedure(real(RKC)) :: getFunc
13492 type(ninf_type) , intent(in) :: lb
13493 real(RKC) , intent(in) :: ub
13494 real(RKC) , intent(in) :: abstol
13495 real(RKC) , intent(in) :: reltol
13496 type(GK41_type) , intent(in) :: qrule
13497 real(RKC) , intent(in) , contiguous :: help(:)
13498 real(RKC) , intent(out) :: integral, abserr
13499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13500 integer(IK) , intent(out) , contiguous :: sindex(:)
13501 integer(IK) , intent(out) :: neval
13502 integer(IK) , intent(out) :: nint
13503 integer(IK) :: err
13504 end function
13505#endif
13506
13507#if RK4_ENABLED
13508 module function QAGP_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13510 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK4
13511#endif
13512 use pm_kind, only: RKC => RK4
13513 procedure(real(RKC)) :: getFunc
13514 type(ninf_type) , intent(in) :: lb
13515 real(RKC) , intent(in) :: ub
13516 real(RKC) , intent(in) :: abstol
13517 real(RKC) , intent(in) :: reltol
13518 type(GK41_type) , intent(in) :: qrule
13519 real(RKC) , intent(in) , contiguous :: help(:)
13520 real(RKC) , intent(out) :: integral, abserr
13521 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13522 integer(IK) , intent(out) , contiguous :: sindex(:)
13523 integer(IK) , intent(out) :: neval
13524 integer(IK) , intent(out) :: nint
13525 integer(IK) :: err
13526 end function
13527#endif
13528
13529#if RK3_ENABLED
13530 module function QAGP_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13532 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK3
13533#endif
13534 use pm_kind, only: RKC => RK3
13535 procedure(real(RKC)) :: getFunc
13536 type(ninf_type) , intent(in) :: lb
13537 real(RKC) , intent(in) :: ub
13538 real(RKC) , intent(in) :: abstol
13539 real(RKC) , intent(in) :: reltol
13540 type(GK41_type) , intent(in) :: qrule
13541 real(RKC) , intent(in) , contiguous :: help(:)
13542 real(RKC) , intent(out) :: integral, abserr
13543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13544 integer(IK) , intent(out) , contiguous :: sindex(:)
13545 integer(IK) , intent(out) :: neval
13546 integer(IK) , intent(out) :: nint
13547 integer(IK) :: err
13548 end function
13549#endif
13550
13551#if RK2_ENABLED
13552 module function QAGP_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13554 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK2
13555#endif
13556 use pm_kind, only: RKC => RK2
13557 procedure(real(RKC)) :: getFunc
13558 type(ninf_type) , intent(in) :: lb
13559 real(RKC) , intent(in) :: ub
13560 real(RKC) , intent(in) :: abstol
13561 real(RKC) , intent(in) :: reltol
13562 type(GK41_type) , intent(in) :: qrule
13563 real(RKC) , intent(in) , contiguous :: help(:)
13564 real(RKC) , intent(out) :: integral, abserr
13565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13566 integer(IK) , intent(out) , contiguous :: sindex(:)
13567 integer(IK) , intent(out) :: neval
13568 integer(IK) , intent(out) :: nint
13569 integer(IK) :: err
13570 end function
13571#endif
13572
13573#if RK1_ENABLED
13574 module function QAGP_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13576 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK1
13577#endif
13578 use pm_kind, only: RKC => RK1
13579 procedure(real(RKC)) :: getFunc
13580 type(ninf_type) , intent(in) :: lb
13581 real(RKC) , intent(in) :: ub
13582 real(RKC) , intent(in) :: abstol
13583 real(RKC) , intent(in) :: reltol
13584 type(GK41_type) , intent(in) :: qrule
13585 real(RKC) , intent(in) , contiguous :: help(:)
13586 real(RKC) , intent(out) :: integral, abserr
13587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13588 integer(IK) , intent(out) , contiguous :: sindex(:)
13589 integer(IK) , intent(out) :: neval
13590 integer(IK) , intent(out) :: nint
13591 integer(IK) :: err
13592 end function
13593#endif
13594
13595 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13596
13597#if RK5_ENABLED
13598 module function QAGP_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13600 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK5
13601#endif
13602 use pm_kind, only: RKC => RK5
13603 procedure(real(RKC)) :: getFunc
13604 type(ninf_type) , intent(in) :: lb
13605 type(pinf_type) , intent(in) :: ub
13606 real(RKC) , intent(in) :: abstol
13607 real(RKC) , intent(in) :: reltol
13608 type(GK41_type) , intent(in) :: qrule
13609 real(RKC) , intent(in) , contiguous :: help(:)
13610 real(RKC) , intent(out) :: integral, abserr
13611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13612 integer(IK) , intent(out) , contiguous :: sindex(:)
13613 integer(IK) , intent(out) :: neval
13614 integer(IK) , intent(out) :: nint
13615 integer(IK) :: err
13616 end function
13617#endif
13618
13619#if RK4_ENABLED
13620 module function QAGP_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK4
13623#endif
13624 use pm_kind, only: RKC => RK4
13625 procedure(real(RKC)) :: getFunc
13626 type(ninf_type) , intent(in) :: lb
13627 type(pinf_type) , intent(in) :: ub
13628 real(RKC) , intent(in) :: abstol
13629 real(RKC) , intent(in) :: reltol
13630 type(GK41_type) , intent(in) :: qrule
13631 real(RKC) , intent(in) , contiguous :: help(:)
13632 real(RKC) , intent(out) :: integral, abserr
13633 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13634 integer(IK) , intent(out) , contiguous :: sindex(:)
13635 integer(IK) , intent(out) :: neval
13636 integer(IK) , intent(out) :: nint
13637 integer(IK) :: err
13638 end function
13639#endif
13640
13641#if RK3_ENABLED
13642 module function QAGP_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13644 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK3
13645#endif
13646 use pm_kind, only: RKC => RK3
13647 procedure(real(RKC)) :: getFunc
13648 type(ninf_type) , intent(in) :: lb
13649 type(pinf_type) , intent(in) :: ub
13650 real(RKC) , intent(in) :: abstol
13651 real(RKC) , intent(in) :: reltol
13652 type(GK41_type) , intent(in) :: qrule
13653 real(RKC) , intent(in) , contiguous :: help(:)
13654 real(RKC) , intent(out) :: integral, abserr
13655 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13656 integer(IK) , intent(out) , contiguous :: sindex(:)
13657 integer(IK) , intent(out) :: neval
13658 integer(IK) , intent(out) :: nint
13659 integer(IK) :: err
13660 end function
13661#endif
13662
13663#if RK2_ENABLED
13664 module function QAGP_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13666 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK2
13667#endif
13668 use pm_kind, only: RKC => RK2
13669 procedure(real(RKC)) :: getFunc
13670 type(ninf_type) , intent(in) :: lb
13671 type(pinf_type) , intent(in) :: ub
13672 real(RKC) , intent(in) :: abstol
13673 real(RKC) , intent(in) :: reltol
13674 type(GK41_type) , intent(in) :: qrule
13675 real(RKC) , intent(in) , contiguous :: help(:)
13676 real(RKC) , intent(out) :: integral, abserr
13677 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13678 integer(IK) , intent(out) , contiguous :: sindex(:)
13679 integer(IK) , intent(out) :: neval
13680 integer(IK) , intent(out) :: nint
13681 integer(IK) :: err
13682 end function
13683#endif
13684
13685#if RK1_ENABLED
13686 module function QAGP_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13688 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK1
13689#endif
13690 use pm_kind, only: RKC => RK1
13691 procedure(real(RKC)) :: getFunc
13692 type(ninf_type) , intent(in) :: lb
13693 type(pinf_type) , intent(in) :: ub
13694 real(RKC) , intent(in) :: abstol
13695 real(RKC) , intent(in) :: reltol
13696 type(GK41_type) , intent(in) :: qrule
13697 real(RKC) , intent(in) , contiguous :: help(:)
13698 real(RKC) , intent(out) :: integral, abserr
13699 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13700 integer(IK) , intent(out) , contiguous :: sindex(:)
13701 integer(IK) , intent(out) :: neval
13702 integer(IK) , intent(out) :: nint
13703 integer(IK) :: err
13704 end function
13705#endif
13706
13707 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13708
13709 end interface
13710
13711 ! QAGP_GK51
13712
13713 interface getQuadErr
13714
13715 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13716
13717#if RK5_ENABLED
13718 module function QAGP_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK5
13721#endif
13722 use pm_kind, only: RKC => RK5
13723 procedure(real(RKC)) :: getFunc
13724 real(RKC) , intent(in) :: lb
13725 real(RKC) , intent(in) :: ub
13726 real(RKC) , intent(in) :: abstol
13727 real(RKC) , intent(in) :: reltol
13728 type(GK51_type) , intent(in) :: qrule
13729 real(RKC) , intent(in) , contiguous :: help(:)
13730 real(RKC) , intent(out) :: integral, abserr
13731 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13732 integer(IK) , intent(out) , contiguous :: sindex(:)
13733 integer(IK) , intent(out) :: neval
13734 integer(IK) , intent(out) :: nint
13735 integer(IK) :: err
13736 end function
13737#endif
13738
13739#if RK4_ENABLED
13740 module function QAGP_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13742 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK4
13743#endif
13744 use pm_kind, only: RKC => RK4
13745 procedure(real(RKC)) :: getFunc
13746 real(RKC) , intent(in) :: lb
13747 real(RKC) , intent(in) :: ub
13748 real(RKC) , intent(in) :: abstol
13749 real(RKC) , intent(in) :: reltol
13750 type(GK51_type) , intent(in) :: qrule
13751 real(RKC) , intent(in) , contiguous :: help(:)
13752 real(RKC) , intent(out) :: integral, abserr
13753 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13754 integer(IK) , intent(out) , contiguous :: sindex(:)
13755 integer(IK) , intent(out) :: neval
13756 integer(IK) , intent(out) :: nint
13757 integer(IK) :: err
13758 end function
13759#endif
13760
13761#if RK3_ENABLED
13762 module function QAGP_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13764 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK3
13765#endif
13766 use pm_kind, only: RKC => RK3
13767 procedure(real(RKC)) :: getFunc
13768 real(RKC) , intent(in) :: lb
13769 real(RKC) , intent(in) :: ub
13770 real(RKC) , intent(in) :: abstol
13771 real(RKC) , intent(in) :: reltol
13772 type(GK51_type) , intent(in) :: qrule
13773 real(RKC) , intent(in) , contiguous :: help(:)
13774 real(RKC) , intent(out) :: integral, abserr
13775 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13776 integer(IK) , intent(out) , contiguous :: sindex(:)
13777 integer(IK) , intent(out) :: neval
13778 integer(IK) , intent(out) :: nint
13779 integer(IK) :: err
13780 end function
13781#endif
13782
13783#if RK2_ENABLED
13784 module function QAGP_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13786 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK2
13787#endif
13788 use pm_kind, only: RKC => RK2
13789 procedure(real(RKC)) :: getFunc
13790 real(RKC) , intent(in) :: lb
13791 real(RKC) , intent(in) :: ub
13792 real(RKC) , intent(in) :: abstol
13793 real(RKC) , intent(in) :: reltol
13794 type(GK51_type) , intent(in) :: qrule
13795 real(RKC) , intent(in) , contiguous :: help(:)
13796 real(RKC) , intent(out) :: integral, abserr
13797 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13798 integer(IK) , intent(out) , contiguous :: sindex(:)
13799 integer(IK) , intent(out) :: neval
13800 integer(IK) , intent(out) :: nint
13801 integer(IK) :: err
13802 end function
13803#endif
13804
13805#if RK1_ENABLED
13806 module function QAGP_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK1
13809#endif
13810 use pm_kind, only: RKC => RK1
13811 procedure(real(RKC)) :: getFunc
13812 real(RKC) , intent(in) :: lb
13813 real(RKC) , intent(in) :: ub
13814 real(RKC) , intent(in) :: abstol
13815 real(RKC) , intent(in) :: reltol
13816 type(GK51_type) , intent(in) :: qrule
13817 real(RKC) , intent(in) , contiguous :: help(:)
13818 real(RKC) , intent(out) :: integral, abserr
13819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13820 integer(IK) , intent(out) , contiguous :: sindex(:)
13821 integer(IK) , intent(out) :: neval
13822 integer(IK) , intent(out) :: nint
13823 integer(IK) :: err
13824 end function
13825#endif
13826
13827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13828
13829#if RK5_ENABLED
13830 module function QAGP_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK5
13833#endif
13834 use pm_kind, only: RKC => RK5
13835 procedure(real(RKC)) :: getFunc
13836 real(RKC) , intent(in) :: lb
13837 type(pinf_type) , intent(in) :: ub
13838 real(RKC) , intent(in) :: abstol
13839 real(RKC) , intent(in) :: reltol
13840 type(GK51_type) , intent(in) :: qrule
13841 real(RKC) , intent(in) , contiguous :: help(:)
13842 real(RKC) , intent(out) :: integral, abserr
13843 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13844 integer(IK) , intent(out) , contiguous :: sindex(:)
13845 integer(IK) , intent(out) :: neval
13846 integer(IK) , intent(out) :: nint
13847 integer(IK) :: err
13848 end function
13849#endif
13850
13851#if RK4_ENABLED
13852 module function QAGP_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13854 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK4
13855#endif
13856 use pm_kind, only: RKC => RK4
13857 procedure(real(RKC)) :: getFunc
13858 real(RKC) , intent(in) :: lb
13859 type(pinf_type) , intent(in) :: ub
13860 real(RKC) , intent(in) :: abstol
13861 real(RKC) , intent(in) :: reltol
13862 type(GK51_type) , intent(in) :: qrule
13863 real(RKC) , intent(in) , contiguous :: help(:)
13864 real(RKC) , intent(out) :: integral, abserr
13865 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13866 integer(IK) , intent(out) , contiguous :: sindex(:)
13867 integer(IK) , intent(out) :: neval
13868 integer(IK) , intent(out) :: nint
13869 integer(IK) :: err
13870 end function
13871#endif
13872
13873#if RK3_ENABLED
13874 module function QAGP_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK3
13877#endif
13878 use pm_kind, only: RKC => RK3
13879 procedure(real(RKC)) :: getFunc
13880 real(RKC) , intent(in) :: lb
13881 type(pinf_type) , intent(in) :: ub
13882 real(RKC) , intent(in) :: abstol
13883 real(RKC) , intent(in) :: reltol
13884 type(GK51_type) , intent(in) :: qrule
13885 real(RKC) , intent(in) , contiguous :: help(:)
13886 real(RKC) , intent(out) :: integral, abserr
13887 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13888 integer(IK) , intent(out) , contiguous :: sindex(:)
13889 integer(IK) , intent(out) :: neval
13890 integer(IK) , intent(out) :: nint
13891 integer(IK) :: err
13892 end function
13893#endif
13894
13895#if RK2_ENABLED
13896 module function QAGP_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK2
13899#endif
13900 use pm_kind, only: RKC => RK2
13901 procedure(real(RKC)) :: getFunc
13902 real(RKC) , intent(in) :: lb
13903 type(pinf_type) , intent(in) :: ub
13904 real(RKC) , intent(in) :: abstol
13905 real(RKC) , intent(in) :: reltol
13906 type(GK51_type) , intent(in) :: qrule
13907 real(RKC) , intent(in) , contiguous :: help(:)
13908 real(RKC) , intent(out) :: integral, abserr
13909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13910 integer(IK) , intent(out) , contiguous :: sindex(:)
13911 integer(IK) , intent(out) :: neval
13912 integer(IK) , intent(out) :: nint
13913 integer(IK) :: err
13914 end function
13915#endif
13916
13917#if RK1_ENABLED
13918 module function QAGP_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK1
13921#endif
13922 use pm_kind, only: RKC => RK1
13923 procedure(real(RKC)) :: getFunc
13924 real(RKC) , intent(in) :: lb
13925 type(pinf_type) , intent(in) :: ub
13926 real(RKC) , intent(in) :: abstol
13927 real(RKC) , intent(in) :: reltol
13928 type(GK51_type) , intent(in) :: qrule
13929 real(RKC) , intent(in) , contiguous :: help(:)
13930 real(RKC) , intent(out) :: integral, abserr
13931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13932 integer(IK) , intent(out) , contiguous :: sindex(:)
13933 integer(IK) , intent(out) :: neval
13934 integer(IK) , intent(out) :: nint
13935 integer(IK) :: err
13936 end function
13937#endif
13938
13939 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13940
13941#if RK5_ENABLED
13942 module function QAGP_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK5
13945#endif
13946 use pm_kind, only: RKC => RK5
13947 procedure(real(RKC)) :: getFunc
13948 type(ninf_type) , intent(in) :: lb
13949 real(RKC) , intent(in) :: ub
13950 real(RKC) , intent(in) :: abstol
13951 real(RKC) , intent(in) :: reltol
13952 type(GK51_type) , intent(in) :: qrule
13953 real(RKC) , intent(in) , contiguous :: help(:)
13954 real(RKC) , intent(out) :: integral, abserr
13955 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13956 integer(IK) , intent(out) , contiguous :: sindex(:)
13957 integer(IK) , intent(out) :: neval
13958 integer(IK) , intent(out) :: nint
13959 integer(IK) :: err
13960 end function
13961#endif
13962
13963#if RK4_ENABLED
13964 module function QAGP_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13966 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK4
13967#endif
13968 use pm_kind, only: RKC => RK4
13969 procedure(real(RKC)) :: getFunc
13970 type(ninf_type) , intent(in) :: lb
13971 real(RKC) , intent(in) :: ub
13972 real(RKC) , intent(in) :: abstol
13973 real(RKC) , intent(in) :: reltol
13974 type(GK51_type) , intent(in) :: qrule
13975 real(RKC) , intent(in) , contiguous :: help(:)
13976 real(RKC) , intent(out) :: integral, abserr
13977 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13978 integer(IK) , intent(out) , contiguous :: sindex(:)
13979 integer(IK) , intent(out) :: neval
13980 integer(IK) , intent(out) :: nint
13981 integer(IK) :: err
13982 end function
13983#endif
13984
13985#if RK3_ENABLED
13986 module function QAGP_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13988 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK3
13989#endif
13990 use pm_kind, only: RKC => RK3
13991 procedure(real(RKC)) :: getFunc
13992 type(ninf_type) , intent(in) :: lb
13993 real(RKC) , intent(in) :: ub
13994 real(RKC) , intent(in) :: abstol
13995 real(RKC) , intent(in) :: reltol
13996 type(GK51_type) , intent(in) :: qrule
13997 real(RKC) , intent(in) , contiguous :: help(:)
13998 real(RKC) , intent(out) :: integral, abserr
13999 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14000 integer(IK) , intent(out) , contiguous :: sindex(:)
14001 integer(IK) , intent(out) :: neval
14002 integer(IK) , intent(out) :: nint
14003 integer(IK) :: err
14004 end function
14005#endif
14006
14007#if RK2_ENABLED
14008 module function QAGP_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14010 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK2
14011#endif
14012 use pm_kind, only: RKC => RK2
14013 procedure(real(RKC)) :: getFunc
14014 type(ninf_type) , intent(in) :: lb
14015 real(RKC) , intent(in) :: ub
14016 real(RKC) , intent(in) :: abstol
14017 real(RKC) , intent(in) :: reltol
14018 type(GK51_type) , intent(in) :: qrule
14019 real(RKC) , intent(in) , contiguous :: help(:)
14020 real(RKC) , intent(out) :: integral, abserr
14021 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14022 integer(IK) , intent(out) , contiguous :: sindex(:)
14023 integer(IK) , intent(out) :: neval
14024 integer(IK) , intent(out) :: nint
14025 integer(IK) :: err
14026 end function
14027#endif
14028
14029#if RK1_ENABLED
14030 module function QAGP_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK1
14033#endif
14034 use pm_kind, only: RKC => RK1
14035 procedure(real(RKC)) :: getFunc
14036 type(ninf_type) , intent(in) :: lb
14037 real(RKC) , intent(in) :: ub
14038 real(RKC) , intent(in) :: abstol
14039 real(RKC) , intent(in) :: reltol
14040 type(GK51_type) , intent(in) :: qrule
14041 real(RKC) , intent(in) , contiguous :: help(:)
14042 real(RKC) , intent(out) :: integral, abserr
14043 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14044 integer(IK) , intent(out) , contiguous :: sindex(:)
14045 integer(IK) , intent(out) :: neval
14046 integer(IK) , intent(out) :: nint
14047 integer(IK) :: err
14048 end function
14049#endif
14050
14051 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14052
14053#if RK5_ENABLED
14054 module function QAGP_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK5
14057#endif
14058 use pm_kind, only: RKC => RK5
14059 procedure(real(RKC)) :: getFunc
14060 type(ninf_type) , intent(in) :: lb
14061 type(pinf_type) , intent(in) :: ub
14062 real(RKC) , intent(in) :: abstol
14063 real(RKC) , intent(in) :: reltol
14064 type(GK51_type) , intent(in) :: qrule
14065 real(RKC) , intent(in) , contiguous :: help(:)
14066 real(RKC) , intent(out) :: integral, abserr
14067 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14068 integer(IK) , intent(out) , contiguous :: sindex(:)
14069 integer(IK) , intent(out) :: neval
14070 integer(IK) , intent(out) :: nint
14071 integer(IK) :: err
14072 end function
14073#endif
14074
14075#if RK4_ENABLED
14076 module function QAGP_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14078 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK4
14079#endif
14080 use pm_kind, only: RKC => RK4
14081 procedure(real(RKC)) :: getFunc
14082 type(ninf_type) , intent(in) :: lb
14083 type(pinf_type) , intent(in) :: ub
14084 real(RKC) , intent(in) :: abstol
14085 real(RKC) , intent(in) :: reltol
14086 type(GK51_type) , intent(in) :: qrule
14087 real(RKC) , intent(in) , contiguous :: help(:)
14088 real(RKC) , intent(out) :: integral, abserr
14089 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14090 integer(IK) , intent(out) , contiguous :: sindex(:)
14091 integer(IK) , intent(out) :: neval
14092 integer(IK) , intent(out) :: nint
14093 integer(IK) :: err
14094 end function
14095#endif
14096
14097#if RK3_ENABLED
14098 module function QAGP_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK3
14101#endif
14102 use pm_kind, only: RKC => RK3
14103 procedure(real(RKC)) :: getFunc
14104 type(ninf_type) , intent(in) :: lb
14105 type(pinf_type) , intent(in) :: ub
14106 real(RKC) , intent(in) :: abstol
14107 real(RKC) , intent(in) :: reltol
14108 type(GK51_type) , intent(in) :: qrule
14109 real(RKC) , intent(in) , contiguous :: help(:)
14110 real(RKC) , intent(out) :: integral, abserr
14111 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14112 integer(IK) , intent(out) , contiguous :: sindex(:)
14113 integer(IK) , intent(out) :: neval
14114 integer(IK) , intent(out) :: nint
14115 integer(IK) :: err
14116 end function
14117#endif
14118
14119#if RK2_ENABLED
14120 module function QAGP_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14122 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK2
14123#endif
14124 use pm_kind, only: RKC => RK2
14125 procedure(real(RKC)) :: getFunc
14126 type(ninf_type) , intent(in) :: lb
14127 type(pinf_type) , intent(in) :: ub
14128 real(RKC) , intent(in) :: abstol
14129 real(RKC) , intent(in) :: reltol
14130 type(GK51_type) , intent(in) :: qrule
14131 real(RKC) , intent(in) , contiguous :: help(:)
14132 real(RKC) , intent(out) :: integral, abserr
14133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14134 integer(IK) , intent(out) , contiguous :: sindex(:)
14135 integer(IK) , intent(out) :: neval
14136 integer(IK) , intent(out) :: nint
14137 integer(IK) :: err
14138 end function
14139#endif
14140
14141#if RK1_ENABLED
14142 module function QAGP_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK1
14145#endif
14146 use pm_kind, only: RKC => RK1
14147 procedure(real(RKC)) :: getFunc
14148 type(ninf_type) , intent(in) :: lb
14149 type(pinf_type) , intent(in) :: ub
14150 real(RKC) , intent(in) :: abstol
14151 real(RKC) , intent(in) :: reltol
14152 type(GK51_type) , intent(in) :: qrule
14153 real(RKC) , intent(in) , contiguous :: help(:)
14154 real(RKC) , intent(out) :: integral, abserr
14155 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14156 integer(IK) , intent(out) , contiguous :: sindex(:)
14157 integer(IK) , intent(out) :: neval
14158 integer(IK) , intent(out) :: nint
14159 integer(IK) :: err
14160 end function
14161#endif
14162
14163 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14164
14165 end interface
14166
14167 ! QAGP_GK61
14168
14169 interface getQuadErr
14170
14171 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14172
14173#if RK5_ENABLED
14174 module function QAGP_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14176 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK5
14177#endif
14178 use pm_kind, only: RKC => RK5
14179 procedure(real(RKC)) :: getFunc
14180 real(RKC) , intent(in) :: lb
14181 real(RKC) , intent(in) :: ub
14182 real(RKC) , intent(in) :: abstol
14183 real(RKC) , intent(in) :: reltol
14184 type(GK61_type) , intent(in) :: qrule
14185 real(RKC) , intent(in) , contiguous :: help(:)
14186 real(RKC) , intent(out) :: integral, abserr
14187 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14188 integer(IK) , intent(out) , contiguous :: sindex(:)
14189 integer(IK) , intent(out) :: neval
14190 integer(IK) , intent(out) :: nint
14191 integer(IK) :: err
14192 end function
14193#endif
14194
14195#if RK4_ENABLED
14196 module function QAGP_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14198 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK4
14199#endif
14200 use pm_kind, only: RKC => RK4
14201 procedure(real(RKC)) :: getFunc
14202 real(RKC) , intent(in) :: lb
14203 real(RKC) , intent(in) :: ub
14204 real(RKC) , intent(in) :: abstol
14205 real(RKC) , intent(in) :: reltol
14206 type(GK61_type) , intent(in) :: qrule
14207 real(RKC) , intent(in) , contiguous :: help(:)
14208 real(RKC) , intent(out) :: integral, abserr
14209 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14210 integer(IK) , intent(out) , contiguous :: sindex(:)
14211 integer(IK) , intent(out) :: neval
14212 integer(IK) , intent(out) :: nint
14213 integer(IK) :: err
14214 end function
14215#endif
14216
14217#if RK3_ENABLED
14218 module function QAGP_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14220 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK3
14221#endif
14222 use pm_kind, only: RKC => RK3
14223 procedure(real(RKC)) :: getFunc
14224 real(RKC) , intent(in) :: lb
14225 real(RKC) , intent(in) :: ub
14226 real(RKC) , intent(in) :: abstol
14227 real(RKC) , intent(in) :: reltol
14228 type(GK61_type) , intent(in) :: qrule
14229 real(RKC) , intent(in) , contiguous :: help(:)
14230 real(RKC) , intent(out) :: integral, abserr
14231 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14232 integer(IK) , intent(out) , contiguous :: sindex(:)
14233 integer(IK) , intent(out) :: neval
14234 integer(IK) , intent(out) :: nint
14235 integer(IK) :: err
14236 end function
14237#endif
14238
14239#if RK2_ENABLED
14240 module function QAGP_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14242 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK2
14243#endif
14244 use pm_kind, only: RKC => RK2
14245 procedure(real(RKC)) :: getFunc
14246 real(RKC) , intent(in) :: lb
14247 real(RKC) , intent(in) :: ub
14248 real(RKC) , intent(in) :: abstol
14249 real(RKC) , intent(in) :: reltol
14250 type(GK61_type) , intent(in) :: qrule
14251 real(RKC) , intent(in) , contiguous :: help(:)
14252 real(RKC) , intent(out) :: integral, abserr
14253 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14254 integer(IK) , intent(out) , contiguous :: sindex(:)
14255 integer(IK) , intent(out) :: neval
14256 integer(IK) , intent(out) :: nint
14257 integer(IK) :: err
14258 end function
14259#endif
14260
14261#if RK1_ENABLED
14262 module function QAGP_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14264 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK1
14265#endif
14266 use pm_kind, only: RKC => RK1
14267 procedure(real(RKC)) :: getFunc
14268 real(RKC) , intent(in) :: lb
14269 real(RKC) , intent(in) :: ub
14270 real(RKC) , intent(in) :: abstol
14271 real(RKC) , intent(in) :: reltol
14272 type(GK61_type) , intent(in) :: qrule
14273 real(RKC) , intent(in) , contiguous :: help(:)
14274 real(RKC) , intent(out) :: integral, abserr
14275 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14276 integer(IK) , intent(out) , contiguous :: sindex(:)
14277 integer(IK) , intent(out) :: neval
14278 integer(IK) , intent(out) :: nint
14279 integer(IK) :: err
14280 end function
14281#endif
14282
14283 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14284
14285#if RK5_ENABLED
14286 module function QAGP_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14288 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK5
14289#endif
14290 use pm_kind, only: RKC => RK5
14291 procedure(real(RKC)) :: getFunc
14292 real(RKC) , intent(in) :: lb
14293 type(pinf_type) , intent(in) :: ub
14294 real(RKC) , intent(in) :: abstol
14295 real(RKC) , intent(in) :: reltol
14296 type(GK61_type) , intent(in) :: qrule
14297 real(RKC) , intent(in) , contiguous :: help(:)
14298 real(RKC) , intent(out) :: integral, abserr
14299 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14300 integer(IK) , intent(out) , contiguous :: sindex(:)
14301 integer(IK) , intent(out) :: neval
14302 integer(IK) , intent(out) :: nint
14303 integer(IK) :: err
14304 end function
14305#endif
14306
14307#if RK4_ENABLED
14308 module function QAGP_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14310 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK4
14311#endif
14312 use pm_kind, only: RKC => RK4
14313 procedure(real(RKC)) :: getFunc
14314 real(RKC) , intent(in) :: lb
14315 type(pinf_type) , intent(in) :: ub
14316 real(RKC) , intent(in) :: abstol
14317 real(RKC) , intent(in) :: reltol
14318 type(GK61_type) , intent(in) :: qrule
14319 real(RKC) , intent(in) , contiguous :: help(:)
14320 real(RKC) , intent(out) :: integral, abserr
14321 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14322 integer(IK) , intent(out) , contiguous :: sindex(:)
14323 integer(IK) , intent(out) :: neval
14324 integer(IK) , intent(out) :: nint
14325 integer(IK) :: err
14326 end function
14327#endif
14328
14329#if RK3_ENABLED
14330 module function QAGP_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14332 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK3
14333#endif
14334 use pm_kind, only: RKC => RK3
14335 procedure(real(RKC)) :: getFunc
14336 real(RKC) , intent(in) :: lb
14337 type(pinf_type) , intent(in) :: ub
14338 real(RKC) , intent(in) :: abstol
14339 real(RKC) , intent(in) :: reltol
14340 type(GK61_type) , intent(in) :: qrule
14341 real(RKC) , intent(in) , contiguous :: help(:)
14342 real(RKC) , intent(out) :: integral, abserr
14343 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14344 integer(IK) , intent(out) , contiguous :: sindex(:)
14345 integer(IK) , intent(out) :: neval
14346 integer(IK) , intent(out) :: nint
14347 integer(IK) :: err
14348 end function
14349#endif
14350
14351#if RK2_ENABLED
14352 module function QAGP_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14354 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK2
14355#endif
14356 use pm_kind, only: RKC => RK2
14357 procedure(real(RKC)) :: getFunc
14358 real(RKC) , intent(in) :: lb
14359 type(pinf_type) , intent(in) :: ub
14360 real(RKC) , intent(in) :: abstol
14361 real(RKC) , intent(in) :: reltol
14362 type(GK61_type) , intent(in) :: qrule
14363 real(RKC) , intent(in) , contiguous :: help(:)
14364 real(RKC) , intent(out) :: integral, abserr
14365 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14366 integer(IK) , intent(out) , contiguous :: sindex(:)
14367 integer(IK) , intent(out) :: neval
14368 integer(IK) , intent(out) :: nint
14369 integer(IK) :: err
14370 end function
14371#endif
14372
14373#if RK1_ENABLED
14374 module function QAGP_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14376 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK1
14377#endif
14378 use pm_kind, only: RKC => RK1
14379 procedure(real(RKC)) :: getFunc
14380 real(RKC) , intent(in) :: lb
14381 type(pinf_type) , intent(in) :: ub
14382 real(RKC) , intent(in) :: abstol
14383 real(RKC) , intent(in) :: reltol
14384 type(GK61_type) , intent(in) :: qrule
14385 real(RKC) , intent(in) , contiguous :: help(:)
14386 real(RKC) , intent(out) :: integral, abserr
14387 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14388 integer(IK) , intent(out) , contiguous :: sindex(:)
14389 integer(IK) , intent(out) :: neval
14390 integer(IK) , intent(out) :: nint
14391 integer(IK) :: err
14392 end function
14393#endif
14394
14395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14396
14397#if RK5_ENABLED
14398 module function QAGP_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14400 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK5
14401#endif
14402 use pm_kind, only: RKC => RK5
14403 procedure(real(RKC)) :: getFunc
14404 type(ninf_type) , intent(in) :: lb
14405 real(RKC) , intent(in) :: ub
14406 real(RKC) , intent(in) :: abstol
14407 real(RKC) , intent(in) :: reltol
14408 type(GK61_type) , intent(in) :: qrule
14409 real(RKC) , intent(in) , contiguous :: help(:)
14410 real(RKC) , intent(out) :: integral, abserr
14411 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14412 integer(IK) , intent(out) , contiguous :: sindex(:)
14413 integer(IK) , intent(out) :: neval
14414 integer(IK) , intent(out) :: nint
14415 integer(IK) :: err
14416 end function
14417#endif
14418
14419#if RK4_ENABLED
14420 module function QAGP_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14422 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK4
14423#endif
14424 use pm_kind, only: RKC => RK4
14425 procedure(real(RKC)) :: getFunc
14426 type(ninf_type) , intent(in) :: lb
14427 real(RKC) , intent(in) :: ub
14428 real(RKC) , intent(in) :: abstol
14429 real(RKC) , intent(in) :: reltol
14430 type(GK61_type) , intent(in) :: qrule
14431 real(RKC) , intent(in) , contiguous :: help(:)
14432 real(RKC) , intent(out) :: integral, abserr
14433 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14434 integer(IK) , intent(out) , contiguous :: sindex(:)
14435 integer(IK) , intent(out) :: neval
14436 integer(IK) , intent(out) :: nint
14437 integer(IK) :: err
14438 end function
14439#endif
14440
14441#if RK3_ENABLED
14442 module function QAGP_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14444 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK3
14445#endif
14446 use pm_kind, only: RKC => RK3
14447 procedure(real(RKC)) :: getFunc
14448 type(ninf_type) , intent(in) :: lb
14449 real(RKC) , intent(in) :: ub
14450 real(RKC) , intent(in) :: abstol
14451 real(RKC) , intent(in) :: reltol
14452 type(GK61_type) , intent(in) :: qrule
14453 real(RKC) , intent(in) , contiguous :: help(:)
14454 real(RKC) , intent(out) :: integral, abserr
14455 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14456 integer(IK) , intent(out) , contiguous :: sindex(:)
14457 integer(IK) , intent(out) :: neval
14458 integer(IK) , intent(out) :: nint
14459 integer(IK) :: err
14460 end function
14461#endif
14462
14463#if RK2_ENABLED
14464 module function QAGP_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14466 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK2
14467#endif
14468 use pm_kind, only: RKC => RK2
14469 procedure(real(RKC)) :: getFunc
14470 type(ninf_type) , intent(in) :: lb
14471 real(RKC) , intent(in) :: ub
14472 real(RKC) , intent(in) :: abstol
14473 real(RKC) , intent(in) :: reltol
14474 type(GK61_type) , intent(in) :: qrule
14475 real(RKC) , intent(in) , contiguous :: help(:)
14476 real(RKC) , intent(out) :: integral, abserr
14477 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14478 integer(IK) , intent(out) , contiguous :: sindex(:)
14479 integer(IK) , intent(out) :: neval
14480 integer(IK) , intent(out) :: nint
14481 integer(IK) :: err
14482 end function
14483#endif
14484
14485#if RK1_ENABLED
14486 module function QAGP_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14488 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK1
14489#endif
14490 use pm_kind, only: RKC => RK1
14491 procedure(real(RKC)) :: getFunc
14492 type(ninf_type) , intent(in) :: lb
14493 real(RKC) , intent(in) :: ub
14494 real(RKC) , intent(in) :: abstol
14495 real(RKC) , intent(in) :: reltol
14496 type(GK61_type) , intent(in) :: qrule
14497 real(RKC) , intent(in) , contiguous :: help(:)
14498 real(RKC) , intent(out) :: integral, abserr
14499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14500 integer(IK) , intent(out) , contiguous :: sindex(:)
14501 integer(IK) , intent(out) :: neval
14502 integer(IK) , intent(out) :: nint
14503 integer(IK) :: err
14504 end function
14505#endif
14506
14507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14508
14509#if RK5_ENABLED
14510 module function QAGP_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14512 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK5
14513#endif
14514 use pm_kind, only: RKC => RK5
14515 procedure(real(RKC)) :: getFunc
14516 type(ninf_type) , intent(in) :: lb
14517 type(pinf_type) , intent(in) :: ub
14518 real(RKC) , intent(in) :: abstol
14519 real(RKC) , intent(in) :: reltol
14520 type(GK61_type) , intent(in) :: qrule
14521 real(RKC) , intent(in) , contiguous :: help(:)
14522 real(RKC) , intent(out) :: integral, abserr
14523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14524 integer(IK) , intent(out) , contiguous :: sindex(:)
14525 integer(IK) , intent(out) :: neval
14526 integer(IK) , intent(out) :: nint
14527 integer(IK) :: err
14528 end function
14529#endif
14530
14531#if RK4_ENABLED
14532 module function QAGP_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14534 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK4
14535#endif
14536 use pm_kind, only: RKC => RK4
14537 procedure(real(RKC)) :: getFunc
14538 type(ninf_type) , intent(in) :: lb
14539 type(pinf_type) , intent(in) :: ub
14540 real(RKC) , intent(in) :: abstol
14541 real(RKC) , intent(in) :: reltol
14542 type(GK61_type) , intent(in) :: qrule
14543 real(RKC) , intent(in) , contiguous :: help(:)
14544 real(RKC) , intent(out) :: integral, abserr
14545 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14546 integer(IK) , intent(out) , contiguous :: sindex(:)
14547 integer(IK) , intent(out) :: neval
14548 integer(IK) , intent(out) :: nint
14549 integer(IK) :: err
14550 end function
14551#endif
14552
14553#if RK3_ENABLED
14554 module function QAGP_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14556 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK3
14557#endif
14558 use pm_kind, only: RKC => RK3
14559 procedure(real(RKC)) :: getFunc
14560 type(ninf_type) , intent(in) :: lb
14561 type(pinf_type) , intent(in) :: ub
14562 real(RKC) , intent(in) :: abstol
14563 real(RKC) , intent(in) :: reltol
14564 type(GK61_type) , intent(in) :: qrule
14565 real(RKC) , intent(in) , contiguous :: help(:)
14566 real(RKC) , intent(out) :: integral, abserr
14567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14568 integer(IK) , intent(out) , contiguous :: sindex(:)
14569 integer(IK) , intent(out) :: neval
14570 integer(IK) , intent(out) :: nint
14571 integer(IK) :: err
14572 end function
14573#endif
14574
14575#if RK2_ENABLED
14576 module function QAGP_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK2
14579#endif
14580 use pm_kind, only: RKC => RK2
14581 procedure(real(RKC)) :: getFunc
14582 type(ninf_type) , intent(in) :: lb
14583 type(pinf_type) , intent(in) :: ub
14584 real(RKC) , intent(in) :: abstol
14585 real(RKC) , intent(in) :: reltol
14586 type(GK61_type) , intent(in) :: qrule
14587 real(RKC) , intent(in) , contiguous :: help(:)
14588 real(RKC) , intent(out) :: integral, abserr
14589 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14590 integer(IK) , intent(out) , contiguous :: sindex(:)
14591 integer(IK) , intent(out) :: neval
14592 integer(IK) , intent(out) :: nint
14593 integer(IK) :: err
14594 end function
14595#endif
14596
14597#if RK1_ENABLED
14598 module function QAGP_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14600 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK1
14601#endif
14602 use pm_kind, only: RKC => RK1
14603 procedure(real(RKC)) :: getFunc
14604 type(ninf_type) , intent(in) :: lb
14605 type(pinf_type) , intent(in) :: ub
14606 real(RKC) , intent(in) :: abstol
14607 real(RKC) , intent(in) :: reltol
14608 type(GK61_type) , intent(in) :: qrule
14609 real(RKC) , intent(in) , contiguous :: help(:)
14610 real(RKC) , intent(out) :: integral, abserr
14611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14612 integer(IK) , intent(out) , contiguous :: sindex(:)
14613 integer(IK) , intent(out) :: neval
14614 integer(IK) , intent(out) :: nint
14615 integer(IK) :: err
14616 end function
14617#endif
14618
14619 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14620
14621 end interface
14622
14623 ! QAGP_GKXX
14624
14625 interface getQuadErr
14626
14627 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14628
14629#if RK5_ENABLED
14630 module function QAGP_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14632 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK5
14633#endif
14634 use pm_kind, only: RKC => RK5
14635 procedure(real(RKC)) :: getFunc
14636 real(RKC) , intent(in) :: lb
14637 real(RKC) , intent(in) :: ub
14638 real(RKC) , intent(in) :: abstol
14639 real(RKC) , intent(in) :: reltol
14640 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14641 real(RKC) , intent(in) , contiguous :: help(:)
14642 real(RKC) , intent(out) :: integral, abserr
14643 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14644 integer(IK) , intent(out) , contiguous :: sindex(:)
14645 integer(IK) , intent(out) :: neval
14646 integer(IK) , intent(out) :: nint
14647 integer(IK) :: err
14648 end function
14649#endif
14650
14651#if RK4_ENABLED
14652 module function QAGP_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14654 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK4
14655#endif
14656 use pm_kind, only: RKC => RK4
14657 procedure(real(RKC)) :: getFunc
14658 real(RKC) , intent(in) :: lb
14659 real(RKC) , intent(in) :: ub
14660 real(RKC) , intent(in) :: abstol
14661 real(RKC) , intent(in) :: reltol
14662 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14663 real(RKC) , intent(in) , contiguous :: help(:)
14664 real(RKC) , intent(out) :: integral, abserr
14665 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14666 integer(IK) , intent(out) , contiguous :: sindex(:)
14667 integer(IK) , intent(out) :: neval
14668 integer(IK) , intent(out) :: nint
14669 integer(IK) :: err
14670 end function
14671#endif
14672
14673#if RK3_ENABLED
14674 module function QAGP_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14676 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK3
14677#endif
14678 use pm_kind, only: RKC => RK3
14679 procedure(real(RKC)) :: getFunc
14680 real(RKC) , intent(in) :: lb
14681 real(RKC) , intent(in) :: ub
14682 real(RKC) , intent(in) :: abstol
14683 real(RKC) , intent(in) :: reltol
14684 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14685 real(RKC) , intent(in) , contiguous :: help(:)
14686 real(RKC) , intent(out) :: integral, abserr
14687 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14688 integer(IK) , intent(out) , contiguous :: sindex(:)
14689 integer(IK) , intent(out) :: neval
14690 integer(IK) , intent(out) :: nint
14691 integer(IK) :: err
14692 end function
14693#endif
14694
14695#if RK2_ENABLED
14696 module function QAGP_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14698 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK2
14699#endif
14700 use pm_kind, only: RKC => RK2
14701 procedure(real(RKC)) :: getFunc
14702 real(RKC) , intent(in) :: lb
14703 real(RKC) , intent(in) :: ub
14704 real(RKC) , intent(in) :: abstol
14705 real(RKC) , intent(in) :: reltol
14706 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14707 real(RKC) , intent(in) , contiguous :: help(:)
14708 real(RKC) , intent(out) :: integral, abserr
14709 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14710 integer(IK) , intent(out) , contiguous :: sindex(:)
14711 integer(IK) , intent(out) :: neval
14712 integer(IK) , intent(out) :: nint
14713 integer(IK) :: err
14714 end function
14715#endif
14716
14717#if RK1_ENABLED
14718 module function QAGP_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK1
14721#endif
14722 use pm_kind, only: RKC => RK1
14723 procedure(real(RKC)) :: getFunc
14724 real(RKC) , intent(in) :: lb
14725 real(RKC) , intent(in) :: ub
14726 real(RKC) , intent(in) :: abstol
14727 real(RKC) , intent(in) :: reltol
14728 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14729 real(RKC) , intent(in) , contiguous :: help(:)
14730 real(RKC) , intent(out) :: integral, abserr
14731 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14732 integer(IK) , intent(out) , contiguous :: sindex(:)
14733 integer(IK) , intent(out) :: neval
14734 integer(IK) , intent(out) :: nint
14735 integer(IK) :: err
14736 end function
14737#endif
14738
14739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14740
14741#if RK5_ENABLED
14742 module function QAGP_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14744 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK5
14745#endif
14746 use pm_kind, only: RKC => RK5
14747 procedure(real(RKC)) :: getFunc
14748 real(RKC) , intent(in) :: lb
14749 type(pinf_type) , intent(in) :: ub
14750 real(RKC) , intent(in) :: abstol
14751 real(RKC) , intent(in) :: reltol
14752 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14753 real(RKC) , intent(in) , contiguous :: help(:)
14754 real(RKC) , intent(out) :: integral, abserr
14755 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14756 integer(IK) , intent(out) , contiguous :: sindex(:)
14757 integer(IK) , intent(out) :: neval
14758 integer(IK) , intent(out) :: nint
14759 integer(IK) :: err
14760 end function
14761#endif
14762
14763#if RK4_ENABLED
14764 module function QAGP_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14766 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK4
14767#endif
14768 use pm_kind, only: RKC => RK4
14769 procedure(real(RKC)) :: getFunc
14770 real(RKC) , intent(in) :: lb
14771 type(pinf_type) , intent(in) :: ub
14772 real(RKC) , intent(in) :: abstol
14773 real(RKC) , intent(in) :: reltol
14774 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14775 real(RKC) , intent(in) , contiguous :: help(:)
14776 real(RKC) , intent(out) :: integral, abserr
14777 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14778 integer(IK) , intent(out) , contiguous :: sindex(:)
14779 integer(IK) , intent(out) :: neval
14780 integer(IK) , intent(out) :: nint
14781 integer(IK) :: err
14782 end function
14783#endif
14784
14785#if RK3_ENABLED
14786 module function QAGP_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14788 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK3
14789#endif
14790 use pm_kind, only: RKC => RK3
14791 procedure(real(RKC)) :: getFunc
14792 real(RKC) , intent(in) :: lb
14793 type(pinf_type) , intent(in) :: ub
14794 real(RKC) , intent(in) :: abstol
14795 real(RKC) , intent(in) :: reltol
14796 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14797 real(RKC) , intent(in) , contiguous :: help(:)
14798 real(RKC) , intent(out) :: integral, abserr
14799 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14800 integer(IK) , intent(out) , contiguous :: sindex(:)
14801 integer(IK) , intent(out) :: neval
14802 integer(IK) , intent(out) :: nint
14803 integer(IK) :: err
14804 end function
14805#endif
14806
14807#if RK2_ENABLED
14808 module function QAGP_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK2
14811#endif
14812 use pm_kind, only: RKC => RK2
14813 procedure(real(RKC)) :: getFunc
14814 real(RKC) , intent(in) :: lb
14815 type(pinf_type) , intent(in) :: ub
14816 real(RKC) , intent(in) :: abstol
14817 real(RKC) , intent(in) :: reltol
14818 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14819 real(RKC) , intent(in) , contiguous :: help(:)
14820 real(RKC) , intent(out) :: integral, abserr
14821 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14822 integer(IK) , intent(out) , contiguous :: sindex(:)
14823 integer(IK) , intent(out) :: neval
14824 integer(IK) , intent(out) :: nint
14825 integer(IK) :: err
14826 end function
14827#endif
14828
14829#if RK1_ENABLED
14830 module function QAGP_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK1
14833#endif
14834 use pm_kind, only: RKC => RK1
14835 procedure(real(RKC)) :: getFunc
14836 real(RKC) , intent(in) :: lb
14837 type(pinf_type) , intent(in) :: ub
14838 real(RKC) , intent(in) :: abstol
14839 real(RKC) , intent(in) :: reltol
14840 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14841 real(RKC) , intent(in) , contiguous :: help(:)
14842 real(RKC) , intent(out) :: integral, abserr
14843 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14844 integer(IK) , intent(out) , contiguous :: sindex(:)
14845 integer(IK) , intent(out) :: neval
14846 integer(IK) , intent(out) :: nint
14847 integer(IK) :: err
14848 end function
14849#endif
14850
14851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14852
14853#if RK5_ENABLED
14854 module function QAGP_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14856 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK5
14857#endif
14858 use pm_kind, only: RKC => RK5
14859 procedure(real(RKC)) :: getFunc
14860 type(ninf_type) , intent(in) :: lb
14861 real(RKC) , intent(in) :: ub
14862 real(RKC) , intent(in) :: abstol
14863 real(RKC) , intent(in) :: reltol
14864 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14865 real(RKC) , intent(in) , contiguous :: help(:)
14866 real(RKC) , intent(out) :: integral, abserr
14867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14868 integer(IK) , intent(out) , contiguous :: sindex(:)
14869 integer(IK) , intent(out) :: neval
14870 integer(IK) , intent(out) :: nint
14871 integer(IK) :: err
14872 end function
14873#endif
14874
14875#if RK4_ENABLED
14876 module function QAGP_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14878 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK4
14879#endif
14880 use pm_kind, only: RKC => RK4
14881 procedure(real(RKC)) :: getFunc
14882 type(ninf_type) , intent(in) :: lb
14883 real(RKC) , intent(in) :: ub
14884 real(RKC) , intent(in) :: abstol
14885 real(RKC) , intent(in) :: reltol
14886 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14887 real(RKC) , intent(in) , contiguous :: help(:)
14888 real(RKC) , intent(out) :: integral, abserr
14889 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14890 integer(IK) , intent(out) , contiguous :: sindex(:)
14891 integer(IK) , intent(out) :: neval
14892 integer(IK) , intent(out) :: nint
14893 integer(IK) :: err
14894 end function
14895#endif
14896
14897#if RK3_ENABLED
14898 module function QAGP_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14900 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK3
14901#endif
14902 use pm_kind, only: RKC => RK3
14903 procedure(real(RKC)) :: getFunc
14904 type(ninf_type) , intent(in) :: lb
14905 real(RKC) , intent(in) :: ub
14906 real(RKC) , intent(in) :: abstol
14907 real(RKC) , intent(in) :: reltol
14908 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14909 real(RKC) , intent(in) , contiguous :: help(:)
14910 real(RKC) , intent(out) :: integral, abserr
14911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14912 integer(IK) , intent(out) , contiguous :: sindex(:)
14913 integer(IK) , intent(out) :: neval
14914 integer(IK) , intent(out) :: nint
14915 integer(IK) :: err
14916 end function
14917#endif
14918
14919#if RK2_ENABLED
14920 module function QAGP_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK2
14923#endif
14924 use pm_kind, only: RKC => RK2
14925 procedure(real(RKC)) :: getFunc
14926 type(ninf_type) , intent(in) :: lb
14927 real(RKC) , intent(in) :: ub
14928 real(RKC) , intent(in) :: abstol
14929 real(RKC) , intent(in) :: reltol
14930 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14931 real(RKC) , intent(in) , contiguous :: help(:)
14932 real(RKC) , intent(out) :: integral, abserr
14933 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14934 integer(IK) , intent(out) , contiguous :: sindex(:)
14935 integer(IK) , intent(out) :: neval
14936 integer(IK) , intent(out) :: nint
14937 integer(IK) :: err
14938 end function
14939#endif
14940
14941#if RK1_ENABLED
14942 module function QAGP_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK1
14945#endif
14946 use pm_kind, only: RKC => RK1
14947 procedure(real(RKC)) :: getFunc
14948 type(ninf_type) , intent(in) :: lb
14949 real(RKC) , intent(in) :: ub
14950 real(RKC) , intent(in) :: abstol
14951 real(RKC) , intent(in) :: reltol
14952 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14953 real(RKC) , intent(in) , contiguous :: help(:)
14954 real(RKC) , intent(out) :: integral, abserr
14955 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14956 integer(IK) , intent(out) , contiguous :: sindex(:)
14957 integer(IK) , intent(out) :: neval
14958 integer(IK) , intent(out) :: nint
14959 integer(IK) :: err
14960 end function
14961#endif
14962
14963 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14964
14965#if RK5_ENABLED
14966 module function QAGP_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14968 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK5
14969#endif
14970 use pm_kind, only: RKC => RK5
14971 procedure(real(RKC)) :: getFunc
14972 type(ninf_type) , intent(in) :: lb
14973 type(pinf_type) , intent(in) :: ub
14974 real(RKC) , intent(in) :: abstol
14975 real(RKC) , intent(in) :: reltol
14976 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14977 real(RKC) , intent(in) , contiguous :: help(:)
14978 real(RKC) , intent(out) :: integral, abserr
14979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14980 integer(IK) , intent(out) , contiguous :: sindex(:)
14981 integer(IK) , intent(out) :: neval
14982 integer(IK) , intent(out) :: nint
14983 integer(IK) :: err
14984 end function
14985#endif
14986
14987#if RK4_ENABLED
14988 module function QAGP_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14990 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK4
14991#endif
14992 use pm_kind, only: RKC => RK4
14993 procedure(real(RKC)) :: getFunc
14994 type(ninf_type) , intent(in) :: lb
14995 type(pinf_type) , intent(in) :: ub
14996 real(RKC) , intent(in) :: abstol
14997 real(RKC) , intent(in) :: reltol
14998 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14999 real(RKC) , intent(in) , contiguous :: help(:)
15000 real(RKC) , intent(out) :: integral, abserr
15001 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15002 integer(IK) , intent(out) , contiguous :: sindex(:)
15003 integer(IK) , intent(out) :: neval
15004 integer(IK) , intent(out) :: nint
15005 integer(IK) :: err
15006 end function
15007#endif
15008
15009#if RK3_ENABLED
15010 module function QAGP_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15012 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK3
15013#endif
15014 use pm_kind, only: RKC => RK3
15015 procedure(real(RKC)) :: getFunc
15016 type(ninf_type) , intent(in) :: lb
15017 type(pinf_type) , intent(in) :: ub
15018 real(RKC) , intent(in) :: abstol
15019 real(RKC) , intent(in) :: reltol
15020 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15021 real(RKC) , intent(in) , contiguous :: help(:)
15022 real(RKC) , intent(out) :: integral, abserr
15023 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15024 integer(IK) , intent(out) , contiguous :: sindex(:)
15025 integer(IK) , intent(out) :: neval
15026 integer(IK) , intent(out) :: nint
15027 integer(IK) :: err
15028 end function
15029#endif
15030
15031#if RK2_ENABLED
15032 module function QAGP_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15034 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK2
15035#endif
15036 use pm_kind, only: RKC => RK2
15037 procedure(real(RKC)) :: getFunc
15038 type(ninf_type) , intent(in) :: lb
15039 type(pinf_type) , intent(in) :: ub
15040 real(RKC) , intent(in) :: abstol
15041 real(RKC) , intent(in) :: reltol
15042 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15043 real(RKC) , intent(in) , contiguous :: help(:)
15044 real(RKC) , intent(out) :: integral, abserr
15045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15046 integer(IK) , intent(out) , contiguous :: sindex(:)
15047 integer(IK) , intent(out) :: neval
15048 integer(IK) , intent(out) :: nint
15049 integer(IK) :: err
15050 end function
15051#endif
15052
15053#if RK1_ENABLED
15054 module function QAGP_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK1
15057#endif
15058 use pm_kind, only: RKC => RK1
15059 procedure(real(RKC)) :: getFunc
15060 type(ninf_type) , intent(in) :: lb
15061 type(pinf_type) , intent(in) :: ub
15062 real(RKC) , intent(in) :: abstol
15063 real(RKC) , intent(in) :: reltol
15064 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15065 real(RKC) , intent(in) , contiguous :: help(:)
15066 real(RKC) , intent(out) :: integral, abserr
15067 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15068 integer(IK) , intent(out) , contiguous :: sindex(:)
15069 integer(IK) , intent(out) :: neval
15070 integer(IK) , intent(out) :: nint
15071 integer(IK) :: err
15072 end function
15073#endif
15074
15075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15076
15077 end interface
15078
15079!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15080
15081 ! QAWC FF
15082
15083 interface getQuadErr
15084
15085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15086
15087#if RK5_ENABLED
15088 module function QAWC_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15090 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK5
15091#endif
15092 use pm_kind, only: RKC => RK5
15093 procedure(real(RKC)) :: getFunc
15094 real(RKC) , intent(in) :: lb
15095 real(RKC) , intent(in) :: ub
15096 real(RKC) , intent(in) :: abstol
15097 real(RKC) , intent(in) :: reltol
15098 type(GK15_type) , intent(in) :: qrule
15099 type(wcauchy_type) , intent(in) :: help
15100 real(RKC) , intent(out) :: integral, abserr
15101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15102 integer(IK) , intent(out) , contiguous :: sindex(:)
15103 integer(IK) , intent(out) :: neval
15104 integer(IK) , intent(out) :: nint
15105 integer(IK) :: err
15106 end function
15107#endif
15108
15109#if RK4_ENABLED
15110 module function QAWC_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15112 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK4
15113#endif
15114 use pm_kind, only: RKC => RK4
15115 procedure(real(RKC)) :: getFunc
15116 real(RKC) , intent(in) :: lb
15117 real(RKC) , intent(in) :: ub
15118 real(RKC) , intent(in) :: abstol
15119 real(RKC) , intent(in) :: reltol
15120 type(GK15_type) , intent(in) :: qrule
15121 type(wcauchy_type) , intent(in) :: help
15122 real(RKC) , intent(out) :: integral, abserr
15123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15124 integer(IK) , intent(out) , contiguous :: sindex(:)
15125 integer(IK) , intent(out) :: neval
15126 integer(IK) , intent(out) :: nint
15127 integer(IK) :: err
15128 end function
15129#endif
15130
15131#if RK3_ENABLED
15132 module function QAWC_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15134 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK3
15135#endif
15136 use pm_kind, only: RKC => RK3
15137 procedure(real(RKC)) :: getFunc
15138 real(RKC) , intent(in) :: lb
15139 real(RKC) , intent(in) :: ub
15140 real(RKC) , intent(in) :: abstol
15141 real(RKC) , intent(in) :: reltol
15142 type(GK15_type) , intent(in) :: qrule
15143 type(wcauchy_type) , intent(in) :: help
15144 real(RKC) , intent(out) :: integral, abserr
15145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15146 integer(IK) , intent(out) , contiguous :: sindex(:)
15147 integer(IK) , intent(out) :: neval
15148 integer(IK) , intent(out) :: nint
15149 integer(IK) :: err
15150 end function
15151#endif
15152
15153#if RK2_ENABLED
15154 module function QAWC_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15156 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK2
15157#endif
15158 use pm_kind, only: RKC => RK2
15159 procedure(real(RKC)) :: getFunc
15160 real(RKC) , intent(in) :: lb
15161 real(RKC) , intent(in) :: ub
15162 real(RKC) , intent(in) :: abstol
15163 real(RKC) , intent(in) :: reltol
15164 type(GK15_type) , intent(in) :: qrule
15165 type(wcauchy_type) , intent(in) :: help
15166 real(RKC) , intent(out) :: integral, abserr
15167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15168 integer(IK) , intent(out) , contiguous :: sindex(:)
15169 integer(IK) , intent(out) :: neval
15170 integer(IK) , intent(out) :: nint
15171 integer(IK) :: err
15172 end function
15173#endif
15174
15175#if RK1_ENABLED
15176 module function QAWC_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15178 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK1
15179#endif
15180 use pm_kind, only: RKC => RK1
15181 procedure(real(RKC)) :: getFunc
15182 real(RKC) , intent(in) :: lb
15183 real(RKC) , intent(in) :: ub
15184 real(RKC) , intent(in) :: abstol
15185 real(RKC) , intent(in) :: reltol
15186 type(GK15_type) , intent(in) :: qrule
15187 type(wcauchy_type) , intent(in) :: help
15188 real(RKC) , intent(out) :: integral, abserr
15189 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15190 integer(IK) , intent(out) , contiguous :: sindex(:)
15191 integer(IK) , intent(out) :: neval
15192 integer(IK) , intent(out) :: nint
15193 integer(IK) :: err
15194 end function
15195#endif
15196
15197 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15198
15199#if RK5_ENABLED
15200 module function QAWC_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15202 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK5
15203#endif
15204 use pm_kind, only: RKC => RK5
15205 procedure(real(RKC)) :: getFunc
15206 real(RKC) , intent(in) :: lb
15207 real(RKC) , intent(in) :: ub
15208 real(RKC) , intent(in) :: abstol
15209 real(RKC) , intent(in) :: reltol
15210 type(GK21_type) , intent(in) :: qrule
15211 type(wcauchy_type) , intent(in) :: help
15212 real(RKC) , intent(out) :: integral, abserr
15213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15214 integer(IK) , intent(out) , contiguous :: sindex(:)
15215 integer(IK) , intent(out) :: neval
15216 integer(IK) , intent(out) :: nint
15217 integer(IK) :: err
15218 end function
15219#endif
15220
15221#if RK4_ENABLED
15222 module function QAWC_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15224 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK4
15225#endif
15226 use pm_kind, only: RKC => RK4
15227 procedure(real(RKC)) :: getFunc
15228 real(RKC) , intent(in) :: lb
15229 real(RKC) , intent(in) :: ub
15230 real(RKC) , intent(in) :: abstol
15231 real(RKC) , intent(in) :: reltol
15232 type(GK21_type) , intent(in) :: qrule
15233 type(wcauchy_type) , intent(in) :: help
15234 real(RKC) , intent(out) :: integral, abserr
15235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15236 integer(IK) , intent(out) , contiguous :: sindex(:)
15237 integer(IK) , intent(out) :: neval
15238 integer(IK) , intent(out) :: nint
15239 integer(IK) :: err
15240 end function
15241#endif
15242
15243#if RK3_ENABLED
15244 module function QAWC_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15246 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK3
15247#endif
15248 use pm_kind, only: RKC => RK3
15249 procedure(real(RKC)) :: getFunc
15250 real(RKC) , intent(in) :: lb
15251 real(RKC) , intent(in) :: ub
15252 real(RKC) , intent(in) :: abstol
15253 real(RKC) , intent(in) :: reltol
15254 type(GK21_type) , intent(in) :: qrule
15255 type(wcauchy_type) , intent(in) :: help
15256 real(RKC) , intent(out) :: integral, abserr
15257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15258 integer(IK) , intent(out) , contiguous :: sindex(:)
15259 integer(IK) , intent(out) :: neval
15260 integer(IK) , intent(out) :: nint
15261 integer(IK) :: err
15262 end function
15263#endif
15264
15265#if RK2_ENABLED
15266 module function QAWC_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15268 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK2
15269#endif
15270 use pm_kind, only: RKC => RK2
15271 procedure(real(RKC)) :: getFunc
15272 real(RKC) , intent(in) :: lb
15273 real(RKC) , intent(in) :: ub
15274 real(RKC) , intent(in) :: abstol
15275 real(RKC) , intent(in) :: reltol
15276 type(GK21_type) , intent(in) :: qrule
15277 type(wcauchy_type) , intent(in) :: help
15278 real(RKC) , intent(out) :: integral, abserr
15279 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15280 integer(IK) , intent(out) , contiguous :: sindex(:)
15281 integer(IK) , intent(out) :: neval
15282 integer(IK) , intent(out) :: nint
15283 integer(IK) :: err
15284 end function
15285#endif
15286
15287#if RK1_ENABLED
15288 module function QAWC_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15290 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK1
15291#endif
15292 use pm_kind, only: RKC => RK1
15293 procedure(real(RKC)) :: getFunc
15294 real(RKC) , intent(in) :: lb
15295 real(RKC) , intent(in) :: ub
15296 real(RKC) , intent(in) :: abstol
15297 real(RKC) , intent(in) :: reltol
15298 type(GK21_type) , intent(in) :: qrule
15299 type(wcauchy_type) , intent(in) :: help
15300 real(RKC) , intent(out) :: integral, abserr
15301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15302 integer(IK) , intent(out) , contiguous :: sindex(:)
15303 integer(IK) , intent(out) :: neval
15304 integer(IK) , intent(out) :: nint
15305 integer(IK) :: err
15306 end function
15307#endif
15308
15309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15310
15311#if RK5_ENABLED
15312 module function QAWC_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15314 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK5
15315#endif
15316 use pm_kind, only: RKC => RK5
15317 procedure(real(RKC)) :: getFunc
15318 real(RKC) , intent(in) :: lb
15319 real(RKC) , intent(in) :: ub
15320 real(RKC) , intent(in) :: abstol
15321 real(RKC) , intent(in) :: reltol
15322 type(GK31_type) , intent(in) :: qrule
15323 type(wcauchy_type) , intent(in) :: help
15324 real(RKC) , intent(out) :: integral, abserr
15325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15326 integer(IK) , intent(out) , contiguous :: sindex(:)
15327 integer(IK) , intent(out) :: neval
15328 integer(IK) , intent(out) :: nint
15329 integer(IK) :: err
15330 end function
15331#endif
15332
15333#if RK4_ENABLED
15334 module function QAWC_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15336 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK4
15337#endif
15338 use pm_kind, only: RKC => RK4
15339 procedure(real(RKC)) :: getFunc
15340 real(RKC) , intent(in) :: lb
15341 real(RKC) , intent(in) :: ub
15342 real(RKC) , intent(in) :: abstol
15343 real(RKC) , intent(in) :: reltol
15344 type(GK31_type) , intent(in) :: qrule
15345 type(wcauchy_type) , intent(in) :: help
15346 real(RKC) , intent(out) :: integral, abserr
15347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15348 integer(IK) , intent(out) , contiguous :: sindex(:)
15349 integer(IK) , intent(out) :: neval
15350 integer(IK) , intent(out) :: nint
15351 integer(IK) :: err
15352 end function
15353#endif
15354
15355#if RK3_ENABLED
15356 module function QAWC_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15358 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK3
15359#endif
15360 use pm_kind, only: RKC => RK3
15361 procedure(real(RKC)) :: getFunc
15362 real(RKC) , intent(in) :: lb
15363 real(RKC) , intent(in) :: ub
15364 real(RKC) , intent(in) :: abstol
15365 real(RKC) , intent(in) :: reltol
15366 type(GK31_type) , intent(in) :: qrule
15367 type(wcauchy_type) , intent(in) :: help
15368 real(RKC) , intent(out) :: integral, abserr
15369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15370 integer(IK) , intent(out) , contiguous :: sindex(:)
15371 integer(IK) , intent(out) :: neval
15372 integer(IK) , intent(out) :: nint
15373 integer(IK) :: err
15374 end function
15375#endif
15376
15377#if RK2_ENABLED
15378 module function QAWC_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15380 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK2
15381#endif
15382 use pm_kind, only: RKC => RK2
15383 procedure(real(RKC)) :: getFunc
15384 real(RKC) , intent(in) :: lb
15385 real(RKC) , intent(in) :: ub
15386 real(RKC) , intent(in) :: abstol
15387 real(RKC) , intent(in) :: reltol
15388 type(GK31_type) , intent(in) :: qrule
15389 type(wcauchy_type) , intent(in) :: help
15390 real(RKC) , intent(out) :: integral, abserr
15391 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15392 integer(IK) , intent(out) , contiguous :: sindex(:)
15393 integer(IK) , intent(out) :: neval
15394 integer(IK) , intent(out) :: nint
15395 integer(IK) :: err
15396 end function
15397#endif
15398
15399#if RK1_ENABLED
15400 module function QAWC_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15402 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK1
15403#endif
15404 use pm_kind, only: RKC => RK1
15405 procedure(real(RKC)) :: getFunc
15406 real(RKC) , intent(in) :: lb
15407 real(RKC) , intent(in) :: ub
15408 real(RKC) , intent(in) :: abstol
15409 real(RKC) , intent(in) :: reltol
15410 type(GK31_type) , intent(in) :: qrule
15411 type(wcauchy_type) , intent(in) :: help
15412 real(RKC) , intent(out) :: integral, abserr
15413 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15414 integer(IK) , intent(out) , contiguous :: sindex(:)
15415 integer(IK) , intent(out) :: neval
15416 integer(IK) , intent(out) :: nint
15417 integer(IK) :: err
15418 end function
15419#endif
15420
15421 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15422
15423#if RK5_ENABLED
15424 module function QAWC_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15426 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK5
15427#endif
15428 use pm_kind, only: RKC => RK5
15429 procedure(real(RKC)) :: getFunc
15430 real(RKC) , intent(in) :: lb
15431 real(RKC) , intent(in) :: ub
15432 real(RKC) , intent(in) :: abstol
15433 real(RKC) , intent(in) :: reltol
15434 type(GK41_type) , intent(in) :: qrule
15435 type(wcauchy_type) , intent(in) :: help
15436 real(RKC) , intent(out) :: integral, abserr
15437 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15438 integer(IK) , intent(out) , contiguous :: sindex(:)
15439 integer(IK) , intent(out) :: neval
15440 integer(IK) , intent(out) :: nint
15441 integer(IK) :: err
15442 end function
15443#endif
15444
15445#if RK4_ENABLED
15446 module function QAWC_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15448 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK4
15449#endif
15450 use pm_kind, only: RKC => RK4
15451 procedure(real(RKC)) :: getFunc
15452 real(RKC) , intent(in) :: lb
15453 real(RKC) , intent(in) :: ub
15454 real(RKC) , intent(in) :: abstol
15455 real(RKC) , intent(in) :: reltol
15456 type(GK41_type) , intent(in) :: qrule
15457 type(wcauchy_type) , intent(in) :: help
15458 real(RKC) , intent(out) :: integral, abserr
15459 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15460 integer(IK) , intent(out) , contiguous :: sindex(:)
15461 integer(IK) , intent(out) :: neval
15462 integer(IK) , intent(out) :: nint
15463 integer(IK) :: err
15464 end function
15465#endif
15466
15467#if RK3_ENABLED
15468 module function QAWC_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15470 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK3
15471#endif
15472 use pm_kind, only: RKC => RK3
15473 procedure(real(RKC)) :: getFunc
15474 real(RKC) , intent(in) :: lb
15475 real(RKC) , intent(in) :: ub
15476 real(RKC) , intent(in) :: abstol
15477 real(RKC) , intent(in) :: reltol
15478 type(GK41_type) , intent(in) :: qrule
15479 type(wcauchy_type) , intent(in) :: help
15480 real(RKC) , intent(out) :: integral, abserr
15481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15482 integer(IK) , intent(out) , contiguous :: sindex(:)
15483 integer(IK) , intent(out) :: neval
15484 integer(IK) , intent(out) :: nint
15485 integer(IK) :: err
15486 end function
15487#endif
15488
15489#if RK2_ENABLED
15490 module function QAWC_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15492 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK2
15493#endif
15494 use pm_kind, only: RKC => RK2
15495 procedure(real(RKC)) :: getFunc
15496 real(RKC) , intent(in) :: lb
15497 real(RKC) , intent(in) :: ub
15498 real(RKC) , intent(in) :: abstol
15499 real(RKC) , intent(in) :: reltol
15500 type(GK41_type) , intent(in) :: qrule
15501 type(wcauchy_type) , intent(in) :: help
15502 real(RKC) , intent(out) :: integral, abserr
15503 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15504 integer(IK) , intent(out) , contiguous :: sindex(:)
15505 integer(IK) , intent(out) :: neval
15506 integer(IK) , intent(out) :: nint
15507 integer(IK) :: err
15508 end function
15509#endif
15510
15511#if RK1_ENABLED
15512 module function QAWC_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15514 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK1
15515#endif
15516 use pm_kind, only: RKC => RK1
15517 procedure(real(RKC)) :: getFunc
15518 real(RKC) , intent(in) :: lb
15519 real(RKC) , intent(in) :: ub
15520 real(RKC) , intent(in) :: abstol
15521 real(RKC) , intent(in) :: reltol
15522 type(GK41_type) , intent(in) :: qrule
15523 type(wcauchy_type) , intent(in) :: help
15524 real(RKC) , intent(out) :: integral, abserr
15525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15526 integer(IK) , intent(out) , contiguous :: sindex(:)
15527 integer(IK) , intent(out) :: neval
15528 integer(IK) , intent(out) :: nint
15529 integer(IK) :: err
15530 end function
15531#endif
15532
15533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15534
15535#if RK5_ENABLED
15536 module function QAWC_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15538 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK5
15539#endif
15540 use pm_kind, only: RKC => RK5
15541 procedure(real(RKC)) :: getFunc
15542 real(RKC) , intent(in) :: lb
15543 real(RKC) , intent(in) :: ub
15544 real(RKC) , intent(in) :: abstol
15545 real(RKC) , intent(in) :: reltol
15546 type(GK51_type) , intent(in) :: qrule
15547 type(wcauchy_type) , intent(in) :: help
15548 real(RKC) , intent(out) :: integral, abserr
15549 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15550 integer(IK) , intent(out) , contiguous :: sindex(:)
15551 integer(IK) , intent(out) :: neval
15552 integer(IK) , intent(out) :: nint
15553 integer(IK) :: err
15554 end function
15555#endif
15556
15557#if RK4_ENABLED
15558 module function QAWC_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15560 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK4
15561#endif
15562 use pm_kind, only: RKC => RK4
15563 procedure(real(RKC)) :: getFunc
15564 real(RKC) , intent(in) :: lb
15565 real(RKC) , intent(in) :: ub
15566 real(RKC) , intent(in) :: abstol
15567 real(RKC) , intent(in) :: reltol
15568 type(GK51_type) , intent(in) :: qrule
15569 type(wcauchy_type) , intent(in) :: help
15570 real(RKC) , intent(out) :: integral, abserr
15571 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15572 integer(IK) , intent(out) , contiguous :: sindex(:)
15573 integer(IK) , intent(out) :: neval
15574 integer(IK) , intent(out) :: nint
15575 integer(IK) :: err
15576 end function
15577#endif
15578
15579#if RK3_ENABLED
15580 module function QAWC_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15582 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK3
15583#endif
15584 use pm_kind, only: RKC => RK3
15585 procedure(real(RKC)) :: getFunc
15586 real(RKC) , intent(in) :: lb
15587 real(RKC) , intent(in) :: ub
15588 real(RKC) , intent(in) :: abstol
15589 real(RKC) , intent(in) :: reltol
15590 type(GK51_type) , intent(in) :: qrule
15591 type(wcauchy_type) , intent(in) :: help
15592 real(RKC) , intent(out) :: integral, abserr
15593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15594 integer(IK) , intent(out) , contiguous :: sindex(:)
15595 integer(IK) , intent(out) :: neval
15596 integer(IK) , intent(out) :: nint
15597 integer(IK) :: err
15598 end function
15599#endif
15600
15601#if RK2_ENABLED
15602 module function QAWC_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15604 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK2
15605#endif
15606 use pm_kind, only: RKC => RK2
15607 procedure(real(RKC)) :: getFunc
15608 real(RKC) , intent(in) :: lb
15609 real(RKC) , intent(in) :: ub
15610 real(RKC) , intent(in) :: abstol
15611 real(RKC) , intent(in) :: reltol
15612 type(GK51_type) , intent(in) :: qrule
15613 type(wcauchy_type) , intent(in) :: help
15614 real(RKC) , intent(out) :: integral, abserr
15615 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15616 integer(IK) , intent(out) , contiguous :: sindex(:)
15617 integer(IK) , intent(out) :: neval
15618 integer(IK) , intent(out) :: nint
15619 integer(IK) :: err
15620 end function
15621#endif
15622
15623#if RK1_ENABLED
15624 module function QAWC_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15626 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK1
15627#endif
15628 use pm_kind, only: RKC => RK1
15629 procedure(real(RKC)) :: getFunc
15630 real(RKC) , intent(in) :: lb
15631 real(RKC) , intent(in) :: ub
15632 real(RKC) , intent(in) :: abstol
15633 real(RKC) , intent(in) :: reltol
15634 type(GK51_type) , intent(in) :: qrule
15635 type(wcauchy_type) , intent(in) :: help
15636 real(RKC) , intent(out) :: integral, abserr
15637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15638 integer(IK) , intent(out) , contiguous :: sindex(:)
15639 integer(IK) , intent(out) :: neval
15640 integer(IK) , intent(out) :: nint
15641 integer(IK) :: err
15642 end function
15643#endif
15644
15645 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15646
15647#if RK5_ENABLED
15648 module function QAWC_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15650 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK5
15651#endif
15652 use pm_kind, only: RKC => RK5
15653 procedure(real(RKC)) :: getFunc
15654 real(RKC) , intent(in) :: lb
15655 real(RKC) , intent(in) :: ub
15656 real(RKC) , intent(in) :: abstol
15657 real(RKC) , intent(in) :: reltol
15658 type(GK61_type) , intent(in) :: qrule
15659 type(wcauchy_type) , intent(in) :: help
15660 real(RKC) , intent(out) :: integral, abserr
15661 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15662 integer(IK) , intent(out) , contiguous :: sindex(:)
15663 integer(IK) , intent(out) :: neval
15664 integer(IK) , intent(out) :: nint
15665 integer(IK) :: err
15666 end function
15667#endif
15668
15669#if RK4_ENABLED
15670 module function QAWC_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15672 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK4
15673#endif
15674 use pm_kind, only: RKC => RK4
15675 procedure(real(RKC)) :: getFunc
15676 real(RKC) , intent(in) :: lb
15677 real(RKC) , intent(in) :: ub
15678 real(RKC) , intent(in) :: abstol
15679 real(RKC) , intent(in) :: reltol
15680 type(GK61_type) , intent(in) :: qrule
15681 type(wcauchy_type) , intent(in) :: help
15682 real(RKC) , intent(out) :: integral, abserr
15683 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15684 integer(IK) , intent(out) , contiguous :: sindex(:)
15685 integer(IK) , intent(out) :: neval
15686 integer(IK) , intent(out) :: nint
15687 integer(IK) :: err
15688 end function
15689#endif
15690
15691#if RK3_ENABLED
15692 module function QAWC_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15694 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK3
15695#endif
15696 use pm_kind, only: RKC => RK3
15697 procedure(real(RKC)) :: getFunc
15698 real(RKC) , intent(in) :: lb
15699 real(RKC) , intent(in) :: ub
15700 real(RKC) , intent(in) :: abstol
15701 real(RKC) , intent(in) :: reltol
15702 type(GK61_type) , intent(in) :: qrule
15703 type(wcauchy_type) , intent(in) :: help
15704 real(RKC) , intent(out) :: integral, abserr
15705 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15706 integer(IK) , intent(out) , contiguous :: sindex(:)
15707 integer(IK) , intent(out) :: neval
15708 integer(IK) , intent(out) :: nint
15709 integer(IK) :: err
15710 end function
15711#endif
15712
15713#if RK2_ENABLED
15714 module function QAWC_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15716 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK2
15717#endif
15718 use pm_kind, only: RKC => RK2
15719 procedure(real(RKC)) :: getFunc
15720 real(RKC) , intent(in) :: lb
15721 real(RKC) , intent(in) :: ub
15722 real(RKC) , intent(in) :: abstol
15723 real(RKC) , intent(in) :: reltol
15724 type(GK61_type) , intent(in) :: qrule
15725 type(wcauchy_type) , intent(in) :: help
15726 real(RKC) , intent(out) :: integral, abserr
15727 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15728 integer(IK) , intent(out) , contiguous :: sindex(:)
15729 integer(IK) , intent(out) :: neval
15730 integer(IK) , intent(out) :: nint
15731 integer(IK) :: err
15732 end function
15733#endif
15734
15735#if RK1_ENABLED
15736 module function QAWC_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15738 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK1
15739#endif
15740 use pm_kind, only: RKC => RK1
15741 procedure(real(RKC)) :: getFunc
15742 real(RKC) , intent(in) :: lb
15743 real(RKC) , intent(in) :: ub
15744 real(RKC) , intent(in) :: abstol
15745 real(RKC) , intent(in) :: reltol
15746 type(GK61_type) , intent(in) :: qrule
15747 type(wcauchy_type) , intent(in) :: help
15748 real(RKC) , intent(out) :: integral, abserr
15749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15750 integer(IK) , intent(out) , contiguous :: sindex(:)
15751 integer(IK) , intent(out) :: neval
15752 integer(IK) , intent(out) :: nint
15753 integer(IK) :: err
15754 end function
15755#endif
15756
15757 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15758
15759#if RK5_ENABLED
15760 module function QAWC_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15762 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK5
15763#endif
15764 use pm_kind, only: RKC => RK5
15765 procedure(real(RKC)) :: getFunc
15766 real(RKC) , intent(in) :: lb
15767 real(RKC) , intent(in) :: ub
15768 real(RKC) , intent(in) :: abstol
15769 real(RKC) , intent(in) :: reltol
15770 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15771 type(wcauchy_type) , intent(in) :: help
15772 real(RKC) , intent(out) :: integral, abserr
15773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15774 integer(IK) , intent(out) , contiguous :: sindex(:)
15775 integer(IK) , intent(out) :: neval
15776 integer(IK) , intent(out) :: nint
15777 integer(IK) :: err
15778 end function
15779#endif
15780
15781#if RK4_ENABLED
15782 module function QAWC_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15784 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK4
15785#endif
15786 use pm_kind, only: RKC => RK4
15787 procedure(real(RKC)) :: getFunc
15788 real(RKC) , intent(in) :: lb
15789 real(RKC) , intent(in) :: ub
15790 real(RKC) , intent(in) :: abstol
15791 real(RKC) , intent(in) :: reltol
15792 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15793 type(wcauchy_type) , intent(in) :: help
15794 real(RKC) , intent(out) :: integral, abserr
15795 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15796 integer(IK) , intent(out) , contiguous :: sindex(:)
15797 integer(IK) , intent(out) :: neval
15798 integer(IK) , intent(out) :: nint
15799 integer(IK) :: err
15800 end function
15801#endif
15802
15803#if RK3_ENABLED
15804 module function QAWC_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15806 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK3
15807#endif
15808 use pm_kind, only: RKC => RK3
15809 procedure(real(RKC)) :: getFunc
15810 real(RKC) , intent(in) :: lb
15811 real(RKC) , intent(in) :: ub
15812 real(RKC) , intent(in) :: abstol
15813 real(RKC) , intent(in) :: reltol
15814 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15815 type(wcauchy_type) , intent(in) :: help
15816 real(RKC) , intent(out) :: integral, abserr
15817 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15818 integer(IK) , intent(out) , contiguous :: sindex(:)
15819 integer(IK) , intent(out) :: neval
15820 integer(IK) , intent(out) :: nint
15821 integer(IK) :: err
15822 end function
15823#endif
15824
15825#if RK2_ENABLED
15826 module function QAWC_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15828 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK2
15829#endif
15830 use pm_kind, only: RKC => RK2
15831 procedure(real(RKC)) :: getFunc
15832 real(RKC) , intent(in) :: lb
15833 real(RKC) , intent(in) :: ub
15834 real(RKC) , intent(in) :: abstol
15835 real(RKC) , intent(in) :: reltol
15836 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15837 type(wcauchy_type) , intent(in) :: help
15838 real(RKC) , intent(out) :: integral, abserr
15839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15840 integer(IK) , intent(out) , contiguous :: sindex(:)
15841 integer(IK) , intent(out) :: neval
15842 integer(IK) , intent(out) :: nint
15843 integer(IK) :: err
15844 end function
15845#endif
15846
15847#if RK1_ENABLED
15848 module function QAWC_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15850 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK1
15851#endif
15852 use pm_kind, only: RKC => RK1
15853 procedure(real(RKC)) :: getFunc
15854 real(RKC) , intent(in) :: lb
15855 real(RKC) , intent(in) :: ub
15856 real(RKC) , intent(in) :: abstol
15857 real(RKC) , intent(in) :: reltol
15858 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15859 type(wcauchy_type) , intent(in) :: help
15860 real(RKC) , intent(out) :: integral, abserr
15861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15862 integer(IK) , intent(out) , contiguous :: sindex(:)
15863 integer(IK) , intent(out) :: neval
15864 integer(IK) , intent(out) :: nint
15865 integer(IK) :: err
15866 end function
15867#endif
15868
15869 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15870
15871 end interface
15872
15873 ! QAWC FI
15874
15875 interface getQuadErr
15876
15877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15878
15879#if RK5_ENABLED
15880 module function QAWC_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15882 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK5
15883#endif
15884 use pm_kind, only: RKC => RK5
15885 procedure(real(RKC)) :: getFunc
15886 real(RKC) , intent(in) :: lb
15887 type(pinf_type) , intent(in) :: ub
15888 real(RKC) , intent(in) :: abstol
15889 real(RKC) , intent(in) :: reltol
15890 type(GK15_type) , intent(in) :: qrule
15891 type(wcauchy_type) , intent(in) :: help
15892 real(RKC) , intent(out) :: integral, abserr
15893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15894 integer(IK) , intent(out) , contiguous :: sindex(:)
15895 integer(IK) , intent(out) :: neval
15896 integer(IK) , intent(out) :: nint
15897 integer(IK) :: err
15898 end function
15899#endif
15900
15901#if RK4_ENABLED
15902 module function QAWC_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15904 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK4
15905#endif
15906 use pm_kind, only: RKC => RK4
15907 procedure(real(RKC)) :: getFunc
15908 real(RKC) , intent(in) :: lb
15909 type(pinf_type) , intent(in) :: ub
15910 real(RKC) , intent(in) :: abstol
15911 real(RKC) , intent(in) :: reltol
15912 type(GK15_type) , intent(in) :: qrule
15913 type(wcauchy_type) , intent(in) :: help
15914 real(RKC) , intent(out) :: integral, abserr
15915 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15916 integer(IK) , intent(out) , contiguous :: sindex(:)
15917 integer(IK) , intent(out) :: neval
15918 integer(IK) , intent(out) :: nint
15919 integer(IK) :: err
15920 end function
15921#endif
15922
15923#if RK3_ENABLED
15924 module function QAWC_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15926 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK3
15927#endif
15928 use pm_kind, only: RKC => RK3
15929 procedure(real(RKC)) :: getFunc
15930 real(RKC) , intent(in) :: lb
15931 type(pinf_type) , intent(in) :: ub
15932 real(RKC) , intent(in) :: abstol
15933 real(RKC) , intent(in) :: reltol
15934 type(GK15_type) , intent(in) :: qrule
15935 type(wcauchy_type) , intent(in) :: help
15936 real(RKC) , intent(out) :: integral, abserr
15937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15938 integer(IK) , intent(out) , contiguous :: sindex(:)
15939 integer(IK) , intent(out) :: neval
15940 integer(IK) , intent(out) :: nint
15941 integer(IK) :: err
15942 end function
15943#endif
15944
15945#if RK2_ENABLED
15946 module function QAWC_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15948 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK2
15949#endif
15950 use pm_kind, only: RKC => RK2
15951 procedure(real(RKC)) :: getFunc
15952 real(RKC) , intent(in) :: lb
15953 type(pinf_type) , intent(in) :: ub
15954 real(RKC) , intent(in) :: abstol
15955 real(RKC) , intent(in) :: reltol
15956 type(GK15_type) , intent(in) :: qrule
15957 type(wcauchy_type) , intent(in) :: help
15958 real(RKC) , intent(out) :: integral, abserr
15959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15960 integer(IK) , intent(out) , contiguous :: sindex(:)
15961 integer(IK) , intent(out) :: neval
15962 integer(IK) , intent(out) :: nint
15963 integer(IK) :: err
15964 end function
15965#endif
15966
15967#if RK1_ENABLED
15968 module function QAWC_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15970 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK1
15971#endif
15972 use pm_kind, only: RKC => RK1
15973 procedure(real(RKC)) :: getFunc
15974 real(RKC) , intent(in) :: lb
15975 type(pinf_type) , intent(in) :: ub
15976 real(RKC) , intent(in) :: abstol
15977 real(RKC) , intent(in) :: reltol
15978 type(GK15_type) , intent(in) :: qrule
15979 type(wcauchy_type) , intent(in) :: help
15980 real(RKC) , intent(out) :: integral, abserr
15981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15982 integer(IK) , intent(out) , contiguous :: sindex(:)
15983 integer(IK) , intent(out) :: neval
15984 integer(IK) , intent(out) :: nint
15985 integer(IK) :: err
15986 end function
15987#endif
15988
15989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15990
15991#if RK5_ENABLED
15992 module function QAWC_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15994 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK5
15995#endif
15996 use pm_kind, only: RKC => RK5
15997 procedure(real(RKC)) :: getFunc
15998 real(RKC) , intent(in) :: lb
15999 type(pinf_type) , intent(in) :: ub
16000 real(RKC) , intent(in) :: abstol
16001 real(RKC) , intent(in) :: reltol
16002 type(GK21_type) , intent(in) :: qrule
16003 type(wcauchy_type) , intent(in) :: help
16004 real(RKC) , intent(out) :: integral, abserr
16005 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16006 integer(IK) , intent(out) , contiguous :: sindex(:)
16007 integer(IK) , intent(out) :: neval
16008 integer(IK) , intent(out) :: nint
16009 integer(IK) :: err
16010 end function
16011#endif
16012
16013#if RK4_ENABLED
16014 module function QAWC_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16016 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK4
16017#endif
16018 use pm_kind, only: RKC => RK4
16019 procedure(real(RKC)) :: getFunc
16020 real(RKC) , intent(in) :: lb
16021 type(pinf_type) , intent(in) :: ub
16022 real(RKC) , intent(in) :: abstol
16023 real(RKC) , intent(in) :: reltol
16024 type(GK21_type) , intent(in) :: qrule
16025 type(wcauchy_type) , intent(in) :: help
16026 real(RKC) , intent(out) :: integral, abserr
16027 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16028 integer(IK) , intent(out) , contiguous :: sindex(:)
16029 integer(IK) , intent(out) :: neval
16030 integer(IK) , intent(out) :: nint
16031 integer(IK) :: err
16032 end function
16033#endif
16034
16035#if RK3_ENABLED
16036 module function QAWC_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16038 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK3
16039#endif
16040 use pm_kind, only: RKC => RK3
16041 procedure(real(RKC)) :: getFunc
16042 real(RKC) , intent(in) :: lb
16043 type(pinf_type) , intent(in) :: ub
16044 real(RKC) , intent(in) :: abstol
16045 real(RKC) , intent(in) :: reltol
16046 type(GK21_type) , intent(in) :: qrule
16047 type(wcauchy_type) , intent(in) :: help
16048 real(RKC) , intent(out) :: integral, abserr
16049 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16050 integer(IK) , intent(out) , contiguous :: sindex(:)
16051 integer(IK) , intent(out) :: neval
16052 integer(IK) , intent(out) :: nint
16053 integer(IK) :: err
16054 end function
16055#endif
16056
16057#if RK2_ENABLED
16058 module function QAWC_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16060 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK2
16061#endif
16062 use pm_kind, only: RKC => RK2
16063 procedure(real(RKC)) :: getFunc
16064 real(RKC) , intent(in) :: lb
16065 type(pinf_type) , intent(in) :: ub
16066 real(RKC) , intent(in) :: abstol
16067 real(RKC) , intent(in) :: reltol
16068 type(GK21_type) , intent(in) :: qrule
16069 type(wcauchy_type) , intent(in) :: help
16070 real(RKC) , intent(out) :: integral, abserr
16071 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16072 integer(IK) , intent(out) , contiguous :: sindex(:)
16073 integer(IK) , intent(out) :: neval
16074 integer(IK) , intent(out) :: nint
16075 integer(IK) :: err
16076 end function
16077#endif
16078
16079#if RK1_ENABLED
16080 module function QAWC_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16082 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK1
16083#endif
16084 use pm_kind, only: RKC => RK1
16085 procedure(real(RKC)) :: getFunc
16086 real(RKC) , intent(in) :: lb
16087 type(pinf_type) , intent(in) :: ub
16088 real(RKC) , intent(in) :: abstol
16089 real(RKC) , intent(in) :: reltol
16090 type(GK21_type) , intent(in) :: qrule
16091 type(wcauchy_type) , intent(in) :: help
16092 real(RKC) , intent(out) :: integral, abserr
16093 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16094 integer(IK) , intent(out) , contiguous :: sindex(:)
16095 integer(IK) , intent(out) :: neval
16096 integer(IK) , intent(out) :: nint
16097 integer(IK) :: err
16098 end function
16099#endif
16100
16101 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16102
16103#if RK5_ENABLED
16104 module function QAWC_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16106 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK5
16107#endif
16108 use pm_kind, only: RKC => RK5
16109 procedure(real(RKC)) :: getFunc
16110 real(RKC) , intent(in) :: lb
16111 type(pinf_type) , intent(in) :: ub
16112 real(RKC) , intent(in) :: abstol
16113 real(RKC) , intent(in) :: reltol
16114 type(GK31_type) , intent(in) :: qrule
16115 type(wcauchy_type) , intent(in) :: help
16116 real(RKC) , intent(out) :: integral, abserr
16117 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16118 integer(IK) , intent(out) , contiguous :: sindex(:)
16119 integer(IK) , intent(out) :: neval
16120 integer(IK) , intent(out) :: nint
16121 integer(IK) :: err
16122 end function
16123#endif
16124
16125#if RK4_ENABLED
16126 module function QAWC_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16128 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK4
16129#endif
16130 use pm_kind, only: RKC => RK4
16131 procedure(real(RKC)) :: getFunc
16132 real(RKC) , intent(in) :: lb
16133 type(pinf_type) , intent(in) :: ub
16134 real(RKC) , intent(in) :: abstol
16135 real(RKC) , intent(in) :: reltol
16136 type(GK31_type) , intent(in) :: qrule
16137 type(wcauchy_type) , intent(in) :: help
16138 real(RKC) , intent(out) :: integral, abserr
16139 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16140 integer(IK) , intent(out) , contiguous :: sindex(:)
16141 integer(IK) , intent(out) :: neval
16142 integer(IK) , intent(out) :: nint
16143 integer(IK) :: err
16144 end function
16145#endif
16146
16147#if RK3_ENABLED
16148 module function QAWC_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16150 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK3
16151#endif
16152 use pm_kind, only: RKC => RK3
16153 procedure(real(RKC)) :: getFunc
16154 real(RKC) , intent(in) :: lb
16155 type(pinf_type) , intent(in) :: ub
16156 real(RKC) , intent(in) :: abstol
16157 real(RKC) , intent(in) :: reltol
16158 type(GK31_type) , intent(in) :: qrule
16159 type(wcauchy_type) , intent(in) :: help
16160 real(RKC) , intent(out) :: integral, abserr
16161 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16162 integer(IK) , intent(out) , contiguous :: sindex(:)
16163 integer(IK) , intent(out) :: neval
16164 integer(IK) , intent(out) :: nint
16165 integer(IK) :: err
16166 end function
16167#endif
16168
16169#if RK2_ENABLED
16170 module function QAWC_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16172 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK2
16173#endif
16174 use pm_kind, only: RKC => RK2
16175 procedure(real(RKC)) :: getFunc
16176 real(RKC) , intent(in) :: lb
16177 type(pinf_type) , intent(in) :: ub
16178 real(RKC) , intent(in) :: abstol
16179 real(RKC) , intent(in) :: reltol
16180 type(GK31_type) , intent(in) :: qrule
16181 type(wcauchy_type) , intent(in) :: help
16182 real(RKC) , intent(out) :: integral, abserr
16183 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16184 integer(IK) , intent(out) , contiguous :: sindex(:)
16185 integer(IK) , intent(out) :: neval
16186 integer(IK) , intent(out) :: nint
16187 integer(IK) :: err
16188 end function
16189#endif
16190
16191#if RK1_ENABLED
16192 module function QAWC_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16194 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK1
16195#endif
16196 use pm_kind, only: RKC => RK1
16197 procedure(real(RKC)) :: getFunc
16198 real(RKC) , intent(in) :: lb
16199 type(pinf_type) , intent(in) :: ub
16200 real(RKC) , intent(in) :: abstol
16201 real(RKC) , intent(in) :: reltol
16202 type(GK31_type) , intent(in) :: qrule
16203 type(wcauchy_type) , intent(in) :: help
16204 real(RKC) , intent(out) :: integral, abserr
16205 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16206 integer(IK) , intent(out) , contiguous :: sindex(:)
16207 integer(IK) , intent(out) :: neval
16208 integer(IK) , intent(out) :: nint
16209 integer(IK) :: err
16210 end function
16211#endif
16212
16213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16214
16215#if RK5_ENABLED
16216 module function QAWC_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16218 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK5
16219#endif
16220 use pm_kind, only: RKC => RK5
16221 procedure(real(RKC)) :: getFunc
16222 real(RKC) , intent(in) :: lb
16223 type(pinf_type) , intent(in) :: ub
16224 real(RKC) , intent(in) :: abstol
16225 real(RKC) , intent(in) :: reltol
16226 type(GK41_type) , intent(in) :: qrule
16227 type(wcauchy_type) , intent(in) :: help
16228 real(RKC) , intent(out) :: integral, abserr
16229 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16230 integer(IK) , intent(out) , contiguous :: sindex(:)
16231 integer(IK) , intent(out) :: neval
16232 integer(IK) , intent(out) :: nint
16233 integer(IK) :: err
16234 end function
16235#endif
16236
16237#if RK4_ENABLED
16238 module function QAWC_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16240 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK4
16241#endif
16242 use pm_kind, only: RKC => RK4
16243 procedure(real(RKC)) :: getFunc
16244 real(RKC) , intent(in) :: lb
16245 type(pinf_type) , intent(in) :: ub
16246 real(RKC) , intent(in) :: abstol
16247 real(RKC) , intent(in) :: reltol
16248 type(GK41_type) , intent(in) :: qrule
16249 type(wcauchy_type) , intent(in) :: help
16250 real(RKC) , intent(out) :: integral, abserr
16251 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16252 integer(IK) , intent(out) , contiguous :: sindex(:)
16253 integer(IK) , intent(out) :: neval
16254 integer(IK) , intent(out) :: nint
16255 integer(IK) :: err
16256 end function
16257#endif
16258
16259#if RK3_ENABLED
16260 module function QAWC_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16262 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK3
16263#endif
16264 use pm_kind, only: RKC => RK3
16265 procedure(real(RKC)) :: getFunc
16266 real(RKC) , intent(in) :: lb
16267 type(pinf_type) , intent(in) :: ub
16268 real(RKC) , intent(in) :: abstol
16269 real(RKC) , intent(in) :: reltol
16270 type(GK41_type) , intent(in) :: qrule
16271 type(wcauchy_type) , intent(in) :: help
16272 real(RKC) , intent(out) :: integral, abserr
16273 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16274 integer(IK) , intent(out) , contiguous :: sindex(:)
16275 integer(IK) , intent(out) :: neval
16276 integer(IK) , intent(out) :: nint
16277 integer(IK) :: err
16278 end function
16279#endif
16280
16281#if RK2_ENABLED
16282 module function QAWC_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16284 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK2
16285#endif
16286 use pm_kind, only: RKC => RK2
16287 procedure(real(RKC)) :: getFunc
16288 real(RKC) , intent(in) :: lb
16289 type(pinf_type) , intent(in) :: ub
16290 real(RKC) , intent(in) :: abstol
16291 real(RKC) , intent(in) :: reltol
16292 type(GK41_type) , intent(in) :: qrule
16293 type(wcauchy_type) , intent(in) :: help
16294 real(RKC) , intent(out) :: integral, abserr
16295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16296 integer(IK) , intent(out) , contiguous :: sindex(:)
16297 integer(IK) , intent(out) :: neval
16298 integer(IK) , intent(out) :: nint
16299 integer(IK) :: err
16300 end function
16301#endif
16302
16303#if RK1_ENABLED
16304 module function QAWC_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16306 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK1
16307#endif
16308 use pm_kind, only: RKC => RK1
16309 procedure(real(RKC)) :: getFunc
16310 real(RKC) , intent(in) :: lb
16311 type(pinf_type) , intent(in) :: ub
16312 real(RKC) , intent(in) :: abstol
16313 real(RKC) , intent(in) :: reltol
16314 type(GK41_type) , intent(in) :: qrule
16315 type(wcauchy_type) , intent(in) :: help
16316 real(RKC) , intent(out) :: integral, abserr
16317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16318 integer(IK) , intent(out) , contiguous :: sindex(:)
16319 integer(IK) , intent(out) :: neval
16320 integer(IK) , intent(out) :: nint
16321 integer(IK) :: err
16322 end function
16323#endif
16324
16325 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16326
16327#if RK5_ENABLED
16328 module function QAWC_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16330 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK5
16331#endif
16332 use pm_kind, only: RKC => RK5
16333 procedure(real(RKC)) :: getFunc
16334 real(RKC) , intent(in) :: lb
16335 type(pinf_type) , intent(in) :: ub
16336 real(RKC) , intent(in) :: abstol
16337 real(RKC) , intent(in) :: reltol
16338 type(GK51_type) , intent(in) :: qrule
16339 type(wcauchy_type) , intent(in) :: help
16340 real(RKC) , intent(out) :: integral, abserr
16341 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16342 integer(IK) , intent(out) , contiguous :: sindex(:)
16343 integer(IK) , intent(out) :: neval
16344 integer(IK) , intent(out) :: nint
16345 integer(IK) :: err
16346 end function
16347#endif
16348
16349#if RK4_ENABLED
16350 module function QAWC_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16352 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK4
16353#endif
16354 use pm_kind, only: RKC => RK4
16355 procedure(real(RKC)) :: getFunc
16356 real(RKC) , intent(in) :: lb
16357 type(pinf_type) , intent(in) :: ub
16358 real(RKC) , intent(in) :: abstol
16359 real(RKC) , intent(in) :: reltol
16360 type(GK51_type) , intent(in) :: qrule
16361 type(wcauchy_type) , intent(in) :: help
16362 real(RKC) , intent(out) :: integral, abserr
16363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16364 integer(IK) , intent(out) , contiguous :: sindex(:)
16365 integer(IK) , intent(out) :: neval
16366 integer(IK) , intent(out) :: nint
16367 integer(IK) :: err
16368 end function
16369#endif
16370
16371#if RK3_ENABLED
16372 module function QAWC_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16374 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK3
16375#endif
16376 use pm_kind, only: RKC => RK3
16377 procedure(real(RKC)) :: getFunc
16378 real(RKC) , intent(in) :: lb
16379 type(pinf_type) , intent(in) :: ub
16380 real(RKC) , intent(in) :: abstol
16381 real(RKC) , intent(in) :: reltol
16382 type(GK51_type) , intent(in) :: qrule
16383 type(wcauchy_type) , intent(in) :: help
16384 real(RKC) , intent(out) :: integral, abserr
16385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16386 integer(IK) , intent(out) , contiguous :: sindex(:)
16387 integer(IK) , intent(out) :: neval
16388 integer(IK) , intent(out) :: nint
16389 integer(IK) :: err
16390 end function
16391#endif
16392
16393#if RK2_ENABLED
16394 module function QAWC_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16396 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK2
16397#endif
16398 use pm_kind, only: RKC => RK2
16399 procedure(real(RKC)) :: getFunc
16400 real(RKC) , intent(in) :: lb
16401 type(pinf_type) , intent(in) :: ub
16402 real(RKC) , intent(in) :: abstol
16403 real(RKC) , intent(in) :: reltol
16404 type(GK51_type) , intent(in) :: qrule
16405 type(wcauchy_type) , intent(in) :: help
16406 real(RKC) , intent(out) :: integral, abserr
16407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16408 integer(IK) , intent(out) , contiguous :: sindex(:)
16409 integer(IK) , intent(out) :: neval
16410 integer(IK) , intent(out) :: nint
16411 integer(IK) :: err
16412 end function
16413#endif
16414
16415#if RK1_ENABLED
16416 module function QAWC_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16418 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK1
16419#endif
16420 use pm_kind, only: RKC => RK1
16421 procedure(real(RKC)) :: getFunc
16422 real(RKC) , intent(in) :: lb
16423 type(pinf_type) , intent(in) :: ub
16424 real(RKC) , intent(in) :: abstol
16425 real(RKC) , intent(in) :: reltol
16426 type(GK51_type) , intent(in) :: qrule
16427 type(wcauchy_type) , intent(in) :: help
16428 real(RKC) , intent(out) :: integral, abserr
16429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16430 integer(IK) , intent(out) , contiguous :: sindex(:)
16431 integer(IK) , intent(out) :: neval
16432 integer(IK) , intent(out) :: nint
16433 integer(IK) :: err
16434 end function
16435#endif
16436
16437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16438
16439#if RK5_ENABLED
16440 module function QAWC_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16442 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK5
16443#endif
16444 use pm_kind, only: RKC => RK5
16445 procedure(real(RKC)) :: getFunc
16446 real(RKC) , intent(in) :: lb
16447 type(pinf_type) , intent(in) :: ub
16448 real(RKC) , intent(in) :: abstol
16449 real(RKC) , intent(in) :: reltol
16450 type(GK61_type) , intent(in) :: qrule
16451 type(wcauchy_type) , intent(in) :: help
16452 real(RKC) , intent(out) :: integral, abserr
16453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16454 integer(IK) , intent(out) , contiguous :: sindex(:)
16455 integer(IK) , intent(out) :: neval
16456 integer(IK) , intent(out) :: nint
16457 integer(IK) :: err
16458 end function
16459#endif
16460
16461#if RK4_ENABLED
16462 module function QAWC_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16464 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK4
16465#endif
16466 use pm_kind, only: RKC => RK4
16467 procedure(real(RKC)) :: getFunc
16468 real(RKC) , intent(in) :: lb
16469 type(pinf_type) , intent(in) :: ub
16470 real(RKC) , intent(in) :: abstol
16471 real(RKC) , intent(in) :: reltol
16472 type(GK61_type) , intent(in) :: qrule
16473 type(wcauchy_type) , intent(in) :: help
16474 real(RKC) , intent(out) :: integral, abserr
16475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16476 integer(IK) , intent(out) , contiguous :: sindex(:)
16477 integer(IK) , intent(out) :: neval
16478 integer(IK) , intent(out) :: nint
16479 integer(IK) :: err
16480 end function
16481#endif
16482
16483#if RK3_ENABLED
16484 module function QAWC_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16486 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK3
16487#endif
16488 use pm_kind, only: RKC => RK3
16489 procedure(real(RKC)) :: getFunc
16490 real(RKC) , intent(in) :: lb
16491 type(pinf_type) , intent(in) :: ub
16492 real(RKC) , intent(in) :: abstol
16493 real(RKC) , intent(in) :: reltol
16494 type(GK61_type) , intent(in) :: qrule
16495 type(wcauchy_type) , intent(in) :: help
16496 real(RKC) , intent(out) :: integral, abserr
16497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16498 integer(IK) , intent(out) , contiguous :: sindex(:)
16499 integer(IK) , intent(out) :: neval
16500 integer(IK) , intent(out) :: nint
16501 integer(IK) :: err
16502 end function
16503#endif
16504
16505#if RK2_ENABLED
16506 module function QAWC_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16508 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK2
16509#endif
16510 use pm_kind, only: RKC => RK2
16511 procedure(real(RKC)) :: getFunc
16512 real(RKC) , intent(in) :: lb
16513 type(pinf_type) , intent(in) :: ub
16514 real(RKC) , intent(in) :: abstol
16515 real(RKC) , intent(in) :: reltol
16516 type(GK61_type) , intent(in) :: qrule
16517 type(wcauchy_type) , intent(in) :: help
16518 real(RKC) , intent(out) :: integral, abserr
16519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16520 integer(IK) , intent(out) , contiguous :: sindex(:)
16521 integer(IK) , intent(out) :: neval
16522 integer(IK) , intent(out) :: nint
16523 integer(IK) :: err
16524 end function
16525#endif
16526
16527#if RK1_ENABLED
16528 module function QAWC_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16530 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK1
16531#endif
16532 use pm_kind, only: RKC => RK1
16533 procedure(real(RKC)) :: getFunc
16534 real(RKC) , intent(in) :: lb
16535 type(pinf_type) , intent(in) :: ub
16536 real(RKC) , intent(in) :: abstol
16537 real(RKC) , intent(in) :: reltol
16538 type(GK61_type) , intent(in) :: qrule
16539 type(wcauchy_type) , intent(in) :: help
16540 real(RKC) , intent(out) :: integral, abserr
16541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16542 integer(IK) , intent(out) , contiguous :: sindex(:)
16543 integer(IK) , intent(out) :: neval
16544 integer(IK) , intent(out) :: nint
16545 integer(IK) :: err
16546 end function
16547#endif
16548
16549 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16550
16551#if RK5_ENABLED
16552 module function QAWC_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16554 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK5
16555#endif
16556 use pm_kind, only: RKC => RK5
16557 procedure(real(RKC)) :: getFunc
16558 real(RKC) , intent(in) :: lb
16559 type(pinf_type) , intent(in) :: ub
16560 real(RKC) , intent(in) :: abstol
16561 real(RKC) , intent(in) :: reltol
16562 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16563 type(wcauchy_type) , intent(in) :: help
16564 real(RKC) , intent(out) :: integral, abserr
16565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16566 integer(IK) , intent(out) , contiguous :: sindex(:)
16567 integer(IK) , intent(out) :: neval
16568 integer(IK) , intent(out) :: nint
16569 integer(IK) :: err
16570 end function
16571#endif
16572
16573#if RK4_ENABLED
16574 module function QAWC_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16576 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK4
16577#endif
16578 use pm_kind, only: RKC => RK4
16579 procedure(real(RKC)) :: getFunc
16580 real(RKC) , intent(in) :: lb
16581 type(pinf_type) , intent(in) :: ub
16582 real(RKC) , intent(in) :: abstol
16583 real(RKC) , intent(in) :: reltol
16584 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16585 type(wcauchy_type) , intent(in) :: help
16586 real(RKC) , intent(out) :: integral, abserr
16587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16588 integer(IK) , intent(out) , contiguous :: sindex(:)
16589 integer(IK) , intent(out) :: neval
16590 integer(IK) , intent(out) :: nint
16591 integer(IK) :: err
16592 end function
16593#endif
16594
16595#if RK3_ENABLED
16596 module function QAWC_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16598 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK3
16599#endif
16600 use pm_kind, only: RKC => RK3
16601 procedure(real(RKC)) :: getFunc
16602 real(RKC) , intent(in) :: lb
16603 type(pinf_type) , intent(in) :: ub
16604 real(RKC) , intent(in) :: abstol
16605 real(RKC) , intent(in) :: reltol
16606 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16607 type(wcauchy_type) , intent(in) :: help
16608 real(RKC) , intent(out) :: integral, abserr
16609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16610 integer(IK) , intent(out) , contiguous :: sindex(:)
16611 integer(IK) , intent(out) :: neval
16612 integer(IK) , intent(out) :: nint
16613 integer(IK) :: err
16614 end function
16615#endif
16616
16617#if RK2_ENABLED
16618 module function QAWC_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16620 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK2
16621#endif
16622 use pm_kind, only: RKC => RK2
16623 procedure(real(RKC)) :: getFunc
16624 real(RKC) , intent(in) :: lb
16625 type(pinf_type) , intent(in) :: ub
16626 real(RKC) , intent(in) :: abstol
16627 real(RKC) , intent(in) :: reltol
16628 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16629 type(wcauchy_type) , intent(in) :: help
16630 real(RKC) , intent(out) :: integral, abserr
16631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16632 integer(IK) , intent(out) , contiguous :: sindex(:)
16633 integer(IK) , intent(out) :: neval
16634 integer(IK) , intent(out) :: nint
16635 integer(IK) :: err
16636 end function
16637#endif
16638
16639#if RK1_ENABLED
16640 module function QAWC_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16642 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK1
16643#endif
16644 use pm_kind, only: RKC => RK1
16645 procedure(real(RKC)) :: getFunc
16646 real(RKC) , intent(in) :: lb
16647 type(pinf_type) , intent(in) :: ub
16648 real(RKC) , intent(in) :: abstol
16649 real(RKC) , intent(in) :: reltol
16650 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16651 type(wcauchy_type) , intent(in) :: help
16652 real(RKC) , intent(out) :: integral, abserr
16653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16654 integer(IK) , intent(out) , contiguous :: sindex(:)
16655 integer(IK) , intent(out) :: neval
16656 integer(IK) , intent(out) :: nint
16657 integer(IK) :: err
16658 end function
16659#endif
16660
16661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16662
16663 end interface
16664
16665 ! QAWC IF
16666
16667 interface getQuadErr
16668
16669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16670
16671#if RK5_ENABLED
16672 module function QAWC_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16674 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK5
16675#endif
16676 use pm_kind, only: RKC => RK5
16677 procedure(real(RKC)) :: getFunc
16678 type(ninf_type) , intent(in) :: lb
16679 real(RKC) , intent(in) :: ub
16680 real(RKC) , intent(in) :: abstol
16681 real(RKC) , intent(in) :: reltol
16682 type(GK15_type) , intent(in) :: qrule
16683 type(wcauchy_type) , intent(in) :: help
16684 real(RKC) , intent(out) :: integral, abserr
16685 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16686 integer(IK) , intent(out) , contiguous :: sindex(:)
16687 integer(IK) , intent(out) :: neval
16688 integer(IK) , intent(out) :: nint
16689 integer(IK) :: err
16690 end function
16691#endif
16692
16693#if RK4_ENABLED
16694 module function QAWC_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16696 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK4
16697#endif
16698 use pm_kind, only: RKC => RK4
16699 procedure(real(RKC)) :: getFunc
16700 type(ninf_type) , intent(in) :: lb
16701 real(RKC) , intent(in) :: ub
16702 real(RKC) , intent(in) :: abstol
16703 real(RKC) , intent(in) :: reltol
16704 type(GK15_type) , intent(in) :: qrule
16705 type(wcauchy_type) , intent(in) :: help
16706 real(RKC) , intent(out) :: integral, abserr
16707 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16708 integer(IK) , intent(out) , contiguous :: sindex(:)
16709 integer(IK) , intent(out) :: neval
16710 integer(IK) , intent(out) :: nint
16711 integer(IK) :: err
16712 end function
16713#endif
16714
16715#if RK3_ENABLED
16716 module function QAWC_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16718 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK3
16719#endif
16720 use pm_kind, only: RKC => RK3
16721 procedure(real(RKC)) :: getFunc
16722 type(ninf_type) , intent(in) :: lb
16723 real(RKC) , intent(in) :: ub
16724 real(RKC) , intent(in) :: abstol
16725 real(RKC) , intent(in) :: reltol
16726 type(GK15_type) , intent(in) :: qrule
16727 type(wcauchy_type) , intent(in) :: help
16728 real(RKC) , intent(out) :: integral, abserr
16729 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16730 integer(IK) , intent(out) , contiguous :: sindex(:)
16731 integer(IK) , intent(out) :: neval
16732 integer(IK) , intent(out) :: nint
16733 integer(IK) :: err
16734 end function
16735#endif
16736
16737#if RK2_ENABLED
16738 module function QAWC_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16740 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK2
16741#endif
16742 use pm_kind, only: RKC => RK2
16743 procedure(real(RKC)) :: getFunc
16744 type(ninf_type) , intent(in) :: lb
16745 real(RKC) , intent(in) :: ub
16746 real(RKC) , intent(in) :: abstol
16747 real(RKC) , intent(in) :: reltol
16748 type(GK15_type) , intent(in) :: qrule
16749 type(wcauchy_type) , intent(in) :: help
16750 real(RKC) , intent(out) :: integral, abserr
16751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16752 integer(IK) , intent(out) , contiguous :: sindex(:)
16753 integer(IK) , intent(out) :: neval
16754 integer(IK) , intent(out) :: nint
16755 integer(IK) :: err
16756 end function
16757#endif
16758
16759#if RK1_ENABLED
16760 module function QAWC_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16762 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK1
16763#endif
16764 use pm_kind, only: RKC => RK1
16765 procedure(real(RKC)) :: getFunc
16766 type(ninf_type) , intent(in) :: lb
16767 real(RKC) , intent(in) :: ub
16768 real(RKC) , intent(in) :: abstol
16769 real(RKC) , intent(in) :: reltol
16770 type(GK15_type) , intent(in) :: qrule
16771 type(wcauchy_type) , intent(in) :: help
16772 real(RKC) , intent(out) :: integral, abserr
16773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16774 integer(IK) , intent(out) , contiguous :: sindex(:)
16775 integer(IK) , intent(out) :: neval
16776 integer(IK) , intent(out) :: nint
16777 integer(IK) :: err
16778 end function
16779#endif
16780
16781 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16782
16783#if RK5_ENABLED
16784 module function QAWC_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16786 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK5
16787#endif
16788 use pm_kind, only: RKC => RK5
16789 procedure(real(RKC)) :: getFunc
16790 type(ninf_type) , intent(in) :: lb
16791 real(RKC) , intent(in) :: ub
16792 real(RKC) , intent(in) :: abstol
16793 real(RKC) , intent(in) :: reltol
16794 type(GK21_type) , intent(in) :: qrule
16795 type(wcauchy_type) , intent(in) :: help
16796 real(RKC) , intent(out) :: integral, abserr
16797 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16798 integer(IK) , intent(out) , contiguous :: sindex(:)
16799 integer(IK) , intent(out) :: neval
16800 integer(IK) , intent(out) :: nint
16801 integer(IK) :: err
16802 end function
16803#endif
16804
16805#if RK4_ENABLED
16806 module function QAWC_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16808 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK4
16809#endif
16810 use pm_kind, only: RKC => RK4
16811 procedure(real(RKC)) :: getFunc
16812 type(ninf_type) , intent(in) :: lb
16813 real(RKC) , intent(in) :: ub
16814 real(RKC) , intent(in) :: abstol
16815 real(RKC) , intent(in) :: reltol
16816 type(GK21_type) , intent(in) :: qrule
16817 type(wcauchy_type) , intent(in) :: help
16818 real(RKC) , intent(out) :: integral, abserr
16819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16820 integer(IK) , intent(out) , contiguous :: sindex(:)
16821 integer(IK) , intent(out) :: neval
16822 integer(IK) , intent(out) :: nint
16823 integer(IK) :: err
16824 end function
16825#endif
16826
16827#if RK3_ENABLED
16828 module function QAWC_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16830 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK3
16831#endif
16832 use pm_kind, only: RKC => RK3
16833 procedure(real(RKC)) :: getFunc
16834 type(ninf_type) , intent(in) :: lb
16835 real(RKC) , intent(in) :: ub
16836 real(RKC) , intent(in) :: abstol
16837 real(RKC) , intent(in) :: reltol
16838 type(GK21_type) , intent(in) :: qrule
16839 type(wcauchy_type) , intent(in) :: help
16840 real(RKC) , intent(out) :: integral, abserr
16841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16842 integer(IK) , intent(out) , contiguous :: sindex(:)
16843 integer(IK) , intent(out) :: neval
16844 integer(IK) , intent(out) :: nint
16845 integer(IK) :: err
16846 end function
16847#endif
16848
16849#if RK2_ENABLED
16850 module function QAWC_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16852 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK2
16853#endif
16854 use pm_kind, only: RKC => RK2
16855 procedure(real(RKC)) :: getFunc
16856 type(ninf_type) , intent(in) :: lb
16857 real(RKC) , intent(in) :: ub
16858 real(RKC) , intent(in) :: abstol
16859 real(RKC) , intent(in) :: reltol
16860 type(GK21_type) , intent(in) :: qrule
16861 type(wcauchy_type) , intent(in) :: help
16862 real(RKC) , intent(out) :: integral, abserr
16863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16864 integer(IK) , intent(out) , contiguous :: sindex(:)
16865 integer(IK) , intent(out) :: neval
16866 integer(IK) , intent(out) :: nint
16867 integer(IK) :: err
16868 end function
16869#endif
16870
16871#if RK1_ENABLED
16872 module function QAWC_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16874 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK1
16875#endif
16876 use pm_kind, only: RKC => RK1
16877 procedure(real(RKC)) :: getFunc
16878 type(ninf_type) , intent(in) :: lb
16879 real(RKC) , intent(in) :: ub
16880 real(RKC) , intent(in) :: abstol
16881 real(RKC) , intent(in) :: reltol
16882 type(GK21_type) , intent(in) :: qrule
16883 type(wcauchy_type) , intent(in) :: help
16884 real(RKC) , intent(out) :: integral, abserr
16885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16886 integer(IK) , intent(out) , contiguous :: sindex(:)
16887 integer(IK) , intent(out) :: neval
16888 integer(IK) , intent(out) :: nint
16889 integer(IK) :: err
16890 end function
16891#endif
16892
16893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16894
16895#if RK5_ENABLED
16896 module function QAWC_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16898 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK5
16899#endif
16900 use pm_kind, only: RKC => RK5
16901 procedure(real(RKC)) :: getFunc
16902 type(ninf_type) , intent(in) :: lb
16903 real(RKC) , intent(in) :: ub
16904 real(RKC) , intent(in) :: abstol
16905 real(RKC) , intent(in) :: reltol
16906 type(GK31_type) , intent(in) :: qrule
16907 type(wcauchy_type) , intent(in) :: help
16908 real(RKC) , intent(out) :: integral, abserr
16909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16910 integer(IK) , intent(out) , contiguous :: sindex(:)
16911 integer(IK) , intent(out) :: neval
16912 integer(IK) , intent(out) :: nint
16913 integer(IK) :: err
16914 end function
16915#endif
16916
16917#if RK4_ENABLED
16918 module function QAWC_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16920 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK4
16921#endif
16922 use pm_kind, only: RKC => RK4
16923 procedure(real(RKC)) :: getFunc
16924 type(ninf_type) , intent(in) :: lb
16925 real(RKC) , intent(in) :: ub
16926 real(RKC) , intent(in) :: abstol
16927 real(RKC) , intent(in) :: reltol
16928 type(GK31_type) , intent(in) :: qrule
16929 type(wcauchy_type) , intent(in) :: help
16930 real(RKC) , intent(out) :: integral, abserr
16931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16932 integer(IK) , intent(out) , contiguous :: sindex(:)
16933 integer(IK) , intent(out) :: neval
16934 integer(IK) , intent(out) :: nint
16935 integer(IK) :: err
16936 end function
16937#endif
16938
16939#if RK3_ENABLED
16940 module function QAWC_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16942 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK3
16943#endif
16944 use pm_kind, only: RKC => RK3
16945 procedure(real(RKC)) :: getFunc
16946 type(ninf_type) , intent(in) :: lb
16947 real(RKC) , intent(in) :: ub
16948 real(RKC) , intent(in) :: abstol
16949 real(RKC) , intent(in) :: reltol
16950 type(GK31_type) , intent(in) :: qrule
16951 type(wcauchy_type) , intent(in) :: help
16952 real(RKC) , intent(out) :: integral, abserr
16953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16954 integer(IK) , intent(out) , contiguous :: sindex(:)
16955 integer(IK) , intent(out) :: neval
16956 integer(IK) , intent(out) :: nint
16957 integer(IK) :: err
16958 end function
16959#endif
16960
16961#if RK2_ENABLED
16962 module function QAWC_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16964 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK2
16965#endif
16966 use pm_kind, only: RKC => RK2
16967 procedure(real(RKC)) :: getFunc
16968 type(ninf_type) , intent(in) :: lb
16969 real(RKC) , intent(in) :: ub
16970 real(RKC) , intent(in) :: abstol
16971 real(RKC) , intent(in) :: reltol
16972 type(GK31_type) , intent(in) :: qrule
16973 type(wcauchy_type) , intent(in) :: help
16974 real(RKC) , intent(out) :: integral, abserr
16975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16976 integer(IK) , intent(out) , contiguous :: sindex(:)
16977 integer(IK) , intent(out) :: neval
16978 integer(IK) , intent(out) :: nint
16979 integer(IK) :: err
16980 end function
16981#endif
16982
16983#if RK1_ENABLED
16984 module function QAWC_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16986 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK1
16987#endif
16988 use pm_kind, only: RKC => RK1
16989 procedure(real(RKC)) :: getFunc
16990 type(ninf_type) , intent(in) :: lb
16991 real(RKC) , intent(in) :: ub
16992 real(RKC) , intent(in) :: abstol
16993 real(RKC) , intent(in) :: reltol
16994 type(GK31_type) , intent(in) :: qrule
16995 type(wcauchy_type) , intent(in) :: help
16996 real(RKC) , intent(out) :: integral, abserr
16997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16998 integer(IK) , intent(out) , contiguous :: sindex(:)
16999 integer(IK) , intent(out) :: neval
17000 integer(IK) , intent(out) :: nint
17001 integer(IK) :: err
17002 end function
17003#endif
17004
17005 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17006
17007#if RK5_ENABLED
17008 module function QAWC_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17010 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK5
17011#endif
17012 use pm_kind, only: RKC => RK5
17013 procedure(real(RKC)) :: getFunc
17014 type(ninf_type) , intent(in) :: lb
17015 real(RKC) , intent(in) :: ub
17016 real(RKC) , intent(in) :: abstol
17017 real(RKC) , intent(in) :: reltol
17018 type(GK41_type) , intent(in) :: qrule
17019 type(wcauchy_type) , intent(in) :: help
17020 real(RKC) , intent(out) :: integral, abserr
17021 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17022 integer(IK) , intent(out) , contiguous :: sindex(:)
17023 integer(IK) , intent(out) :: neval
17024 integer(IK) , intent(out) :: nint
17025 integer(IK) :: err
17026 end function
17027#endif
17028
17029#if RK4_ENABLED
17030 module function QAWC_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17032 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK4
17033#endif
17034 use pm_kind, only: RKC => RK4
17035 procedure(real(RKC)) :: getFunc
17036 type(ninf_type) , intent(in) :: lb
17037 real(RKC) , intent(in) :: ub
17038 real(RKC) , intent(in) :: abstol
17039 real(RKC) , intent(in) :: reltol
17040 type(GK41_type) , intent(in) :: qrule
17041 type(wcauchy_type) , intent(in) :: help
17042 real(RKC) , intent(out) :: integral, abserr
17043 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17044 integer(IK) , intent(out) , contiguous :: sindex(:)
17045 integer(IK) , intent(out) :: neval
17046 integer(IK) , intent(out) :: nint
17047 integer(IK) :: err
17048 end function
17049#endif
17050
17051#if RK3_ENABLED
17052 module function QAWC_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17054 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK3
17055#endif
17056 use pm_kind, only: RKC => RK3
17057 procedure(real(RKC)) :: getFunc
17058 type(ninf_type) , intent(in) :: lb
17059 real(RKC) , intent(in) :: ub
17060 real(RKC) , intent(in) :: abstol
17061 real(RKC) , intent(in) :: reltol
17062 type(GK41_type) , intent(in) :: qrule
17063 type(wcauchy_type) , intent(in) :: help
17064 real(RKC) , intent(out) :: integral, abserr
17065 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17066 integer(IK) , intent(out) , contiguous :: sindex(:)
17067 integer(IK) , intent(out) :: neval
17068 integer(IK) , intent(out) :: nint
17069 integer(IK) :: err
17070 end function
17071#endif
17072
17073#if RK2_ENABLED
17074 module function QAWC_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17076 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK2
17077#endif
17078 use pm_kind, only: RKC => RK2
17079 procedure(real(RKC)) :: getFunc
17080 type(ninf_type) , intent(in) :: lb
17081 real(RKC) , intent(in) :: ub
17082 real(RKC) , intent(in) :: abstol
17083 real(RKC) , intent(in) :: reltol
17084 type(GK41_type) , intent(in) :: qrule
17085 type(wcauchy_type) , intent(in) :: help
17086 real(RKC) , intent(out) :: integral, abserr
17087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17088 integer(IK) , intent(out) , contiguous :: sindex(:)
17089 integer(IK) , intent(out) :: neval
17090 integer(IK) , intent(out) :: nint
17091 integer(IK) :: err
17092 end function
17093#endif
17094
17095#if RK1_ENABLED
17096 module function QAWC_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17098 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK1
17099#endif
17100 use pm_kind, only: RKC => RK1
17101 procedure(real(RKC)) :: getFunc
17102 type(ninf_type) , intent(in) :: lb
17103 real(RKC) , intent(in) :: ub
17104 real(RKC) , intent(in) :: abstol
17105 real(RKC) , intent(in) :: reltol
17106 type(GK41_type) , intent(in) :: qrule
17107 type(wcauchy_type) , intent(in) :: help
17108 real(RKC) , intent(out) :: integral, abserr
17109 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17110 integer(IK) , intent(out) , contiguous :: sindex(:)
17111 integer(IK) , intent(out) :: neval
17112 integer(IK) , intent(out) :: nint
17113 integer(IK) :: err
17114 end function
17115#endif
17116
17117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17118
17119#if RK5_ENABLED
17120 module function QAWC_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17122 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK5
17123#endif
17124 use pm_kind, only: RKC => RK5
17125 procedure(real(RKC)) :: getFunc
17126 type(ninf_type) , intent(in) :: lb
17127 real(RKC) , intent(in) :: ub
17128 real(RKC) , intent(in) :: abstol
17129 real(RKC) , intent(in) :: reltol
17130 type(GK51_type) , intent(in) :: qrule
17131 type(wcauchy_type) , intent(in) :: help
17132 real(RKC) , intent(out) :: integral, abserr
17133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17134 integer(IK) , intent(out) , contiguous :: sindex(:)
17135 integer(IK) , intent(out) :: neval
17136 integer(IK) , intent(out) :: nint
17137 integer(IK) :: err
17138 end function
17139#endif
17140
17141#if RK4_ENABLED
17142 module function QAWC_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17144 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK4
17145#endif
17146 use pm_kind, only: RKC => RK4
17147 procedure(real(RKC)) :: getFunc
17148 type(ninf_type) , intent(in) :: lb
17149 real(RKC) , intent(in) :: ub
17150 real(RKC) , intent(in) :: abstol
17151 real(RKC) , intent(in) :: reltol
17152 type(GK51_type) , intent(in) :: qrule
17153 type(wcauchy_type) , intent(in) :: help
17154 real(RKC) , intent(out) :: integral, abserr
17155 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17156 integer(IK) , intent(out) , contiguous :: sindex(:)
17157 integer(IK) , intent(out) :: neval
17158 integer(IK) , intent(out) :: nint
17159 integer(IK) :: err
17160 end function
17161#endif
17162
17163#if RK3_ENABLED
17164 module function QAWC_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17166 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK3
17167#endif
17168 use pm_kind, only: RKC => RK3
17169 procedure(real(RKC)) :: getFunc
17170 type(ninf_type) , intent(in) :: lb
17171 real(RKC) , intent(in) :: ub
17172 real(RKC) , intent(in) :: abstol
17173 real(RKC) , intent(in) :: reltol
17174 type(GK51_type) , intent(in) :: qrule
17175 type(wcauchy_type) , intent(in) :: help
17176 real(RKC) , intent(out) :: integral, abserr
17177 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17178 integer(IK) , intent(out) , contiguous :: sindex(:)
17179 integer(IK) , intent(out) :: neval
17180 integer(IK) , intent(out) :: nint
17181 integer(IK) :: err
17182 end function
17183#endif
17184
17185#if RK2_ENABLED
17186 module function QAWC_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17188 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK2
17189#endif
17190 use pm_kind, only: RKC => RK2
17191 procedure(real(RKC)) :: getFunc
17192 type(ninf_type) , intent(in) :: lb
17193 real(RKC) , intent(in) :: ub
17194 real(RKC) , intent(in) :: abstol
17195 real(RKC) , intent(in) :: reltol
17196 type(GK51_type) , intent(in) :: qrule
17197 type(wcauchy_type) , intent(in) :: help
17198 real(RKC) , intent(out) :: integral, abserr
17199 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17200 integer(IK) , intent(out) , contiguous :: sindex(:)
17201 integer(IK) , intent(out) :: neval
17202 integer(IK) , intent(out) :: nint
17203 integer(IK) :: err
17204 end function
17205#endif
17206
17207#if RK1_ENABLED
17208 module function QAWC_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17210 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK1
17211#endif
17212 use pm_kind, only: RKC => RK1
17213 procedure(real(RKC)) :: getFunc
17214 type(ninf_type) , intent(in) :: lb
17215 real(RKC) , intent(in) :: ub
17216 real(RKC) , intent(in) :: abstol
17217 real(RKC) , intent(in) :: reltol
17218 type(GK51_type) , intent(in) :: qrule
17219 type(wcauchy_type) , intent(in) :: help
17220 real(RKC) , intent(out) :: integral, abserr
17221 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17222 integer(IK) , intent(out) , contiguous :: sindex(:)
17223 integer(IK) , intent(out) :: neval
17224 integer(IK) , intent(out) :: nint
17225 integer(IK) :: err
17226 end function
17227#endif
17228
17229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17230
17231#if RK5_ENABLED
17232 module function QAWC_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17234 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK5
17235#endif
17236 use pm_kind, only: RKC => RK5
17237 procedure(real(RKC)) :: getFunc
17238 type(ninf_type) , intent(in) :: lb
17239 real(RKC) , intent(in) :: ub
17240 real(RKC) , intent(in) :: abstol
17241 real(RKC) , intent(in) :: reltol
17242 type(GK61_type) , intent(in) :: qrule
17243 type(wcauchy_type) , intent(in) :: help
17244 real(RKC) , intent(out) :: integral, abserr
17245 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17246 integer(IK) , intent(out) , contiguous :: sindex(:)
17247 integer(IK) , intent(out) :: neval
17248 integer(IK) , intent(out) :: nint
17249 integer(IK) :: err
17250 end function
17251#endif
17252
17253#if RK4_ENABLED
17254 module function QAWC_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17256 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK4
17257#endif
17258 use pm_kind, only: RKC => RK4
17259 procedure(real(RKC)) :: getFunc
17260 type(ninf_type) , intent(in) :: lb
17261 real(RKC) , intent(in) :: ub
17262 real(RKC) , intent(in) :: abstol
17263 real(RKC) , intent(in) :: reltol
17264 type(GK61_type) , intent(in) :: qrule
17265 type(wcauchy_type) , intent(in) :: help
17266 real(RKC) , intent(out) :: integral, abserr
17267 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17268 integer(IK) , intent(out) , contiguous :: sindex(:)
17269 integer(IK) , intent(out) :: neval
17270 integer(IK) , intent(out) :: nint
17271 integer(IK) :: err
17272 end function
17273#endif
17274
17275#if RK3_ENABLED
17276 module function QAWC_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17278 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK3
17279#endif
17280 use pm_kind, only: RKC => RK3
17281 procedure(real(RKC)) :: getFunc
17282 type(ninf_type) , intent(in) :: lb
17283 real(RKC) , intent(in) :: ub
17284 real(RKC) , intent(in) :: abstol
17285 real(RKC) , intent(in) :: reltol
17286 type(GK61_type) , intent(in) :: qrule
17287 type(wcauchy_type) , intent(in) :: help
17288 real(RKC) , intent(out) :: integral, abserr
17289 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17290 integer(IK) , intent(out) , contiguous :: sindex(:)
17291 integer(IK) , intent(out) :: neval
17292 integer(IK) , intent(out) :: nint
17293 integer(IK) :: err
17294 end function
17295#endif
17296
17297#if RK2_ENABLED
17298 module function QAWC_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17300 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK2
17301#endif
17302 use pm_kind, only: RKC => RK2
17303 procedure(real(RKC)) :: getFunc
17304 type(ninf_type) , intent(in) :: lb
17305 real(RKC) , intent(in) :: ub
17306 real(RKC) , intent(in) :: abstol
17307 real(RKC) , intent(in) :: reltol
17308 type(GK61_type) , intent(in) :: qrule
17309 type(wcauchy_type) , intent(in) :: help
17310 real(RKC) , intent(out) :: integral, abserr
17311 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17312 integer(IK) , intent(out) , contiguous :: sindex(:)
17313 integer(IK) , intent(out) :: neval
17314 integer(IK) , intent(out) :: nint
17315 integer(IK) :: err
17316 end function
17317#endif
17318
17319#if RK1_ENABLED
17320 module function QAWC_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17322 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK1
17323#endif
17324 use pm_kind, only: RKC => RK1
17325 procedure(real(RKC)) :: getFunc
17326 type(ninf_type) , intent(in) :: lb
17327 real(RKC) , intent(in) :: ub
17328 real(RKC) , intent(in) :: abstol
17329 real(RKC) , intent(in) :: reltol
17330 type(GK61_type) , intent(in) :: qrule
17331 type(wcauchy_type) , intent(in) :: help
17332 real(RKC) , intent(out) :: integral, abserr
17333 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17334 integer(IK) , intent(out) , contiguous :: sindex(:)
17335 integer(IK) , intent(out) :: neval
17336 integer(IK) , intent(out) :: nint
17337 integer(IK) :: err
17338 end function
17339#endif
17340
17341 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17342
17343#if RK5_ENABLED
17344 module function QAWC_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17346 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK5
17347#endif
17348 use pm_kind, only: RKC => RK5
17349 procedure(real(RKC)) :: getFunc
17350 type(ninf_type) , intent(in) :: lb
17351 real(RKC) , intent(in) :: ub
17352 real(RKC) , intent(in) :: abstol
17353 real(RKC) , intent(in) :: reltol
17354 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17355 type(wcauchy_type) , intent(in) :: help
17356 real(RKC) , intent(out) :: integral, abserr
17357 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17358 integer(IK) , intent(out) , contiguous :: sindex(:)
17359 integer(IK) , intent(out) :: neval
17360 integer(IK) , intent(out) :: nint
17361 integer(IK) :: err
17362 end function
17363#endif
17364
17365#if RK4_ENABLED
17366 module function QAWC_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17368 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK4
17369#endif
17370 use pm_kind, only: RKC => RK4
17371 procedure(real(RKC)) :: getFunc
17372 type(ninf_type) , intent(in) :: lb
17373 real(RKC) , intent(in) :: ub
17374 real(RKC) , intent(in) :: abstol
17375 real(RKC) , intent(in) :: reltol
17376 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17377 type(wcauchy_type) , intent(in) :: help
17378 real(RKC) , intent(out) :: integral, abserr
17379 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17380 integer(IK) , intent(out) , contiguous :: sindex(:)
17381 integer(IK) , intent(out) :: neval
17382 integer(IK) , intent(out) :: nint
17383 integer(IK) :: err
17384 end function
17385#endif
17386
17387#if RK3_ENABLED
17388 module function QAWC_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17390 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK3
17391#endif
17392 use pm_kind, only: RKC => RK3
17393 procedure(real(RKC)) :: getFunc
17394 type(ninf_type) , intent(in) :: lb
17395 real(RKC) , intent(in) :: ub
17396 real(RKC) , intent(in) :: abstol
17397 real(RKC) , intent(in) :: reltol
17398 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17399 type(wcauchy_type) , intent(in) :: help
17400 real(RKC) , intent(out) :: integral, abserr
17401 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17402 integer(IK) , intent(out) , contiguous :: sindex(:)
17403 integer(IK) , intent(out) :: neval
17404 integer(IK) , intent(out) :: nint
17405 integer(IK) :: err
17406 end function
17407#endif
17408
17409#if RK2_ENABLED
17410 module function QAWC_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17412 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK2
17413#endif
17414 use pm_kind, only: RKC => RK2
17415 procedure(real(RKC)) :: getFunc
17416 type(ninf_type) , intent(in) :: lb
17417 real(RKC) , intent(in) :: ub
17418 real(RKC) , intent(in) :: abstol
17419 real(RKC) , intent(in) :: reltol
17420 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17421 type(wcauchy_type) , intent(in) :: help
17422 real(RKC) , intent(out) :: integral, abserr
17423 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17424 integer(IK) , intent(out) , contiguous :: sindex(:)
17425 integer(IK) , intent(out) :: neval
17426 integer(IK) , intent(out) :: nint
17427 integer(IK) :: err
17428 end function
17429#endif
17430
17431#if RK1_ENABLED
17432 module function QAWC_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17434 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK1
17435#endif
17436 use pm_kind, only: RKC => RK1
17437 procedure(real(RKC)) :: getFunc
17438 type(ninf_type) , intent(in) :: lb
17439 real(RKC) , intent(in) :: ub
17440 real(RKC) , intent(in) :: abstol
17441 real(RKC) , intent(in) :: reltol
17442 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17443 type(wcauchy_type) , intent(in) :: help
17444 real(RKC) , intent(out) :: integral, abserr
17445 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17446 integer(IK) , intent(out) , contiguous :: sindex(:)
17447 integer(IK) , intent(out) :: neval
17448 integer(IK) , intent(out) :: nint
17449 integer(IK) :: err
17450 end function
17451#endif
17452
17453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17454
17455 end interface
17456
17457 ! QAWC II
17458
17459 interface getQuadErr
17460
17461 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17462
17463#if RK5_ENABLED
17464 module function QAWC_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17466 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK5
17467#endif
17468 use pm_kind, only: RKC => RK5
17469 procedure(real(RKC)) :: getFunc
17470 type(ninf_type) , intent(in) :: lb
17471 type(pinf_type) , intent(in) :: ub
17472 real(RKC) , intent(in) :: abstol
17473 real(RKC) , intent(in) :: reltol
17474 type(GK15_type) , intent(in) :: qrule
17475 type(wcauchy_type) , intent(in) :: help
17476 real(RKC) , intent(out) :: integral, abserr
17477 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17478 integer(IK) , intent(out) , contiguous :: sindex(:)
17479 integer(IK) , intent(out) :: neval
17480 integer(IK) , intent(out) :: nint
17481 integer(IK) :: err
17482 end function
17483#endif
17484
17485#if RK4_ENABLED
17486 module function QAWC_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17488 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK4
17489#endif
17490 use pm_kind, only: RKC => RK4
17491 procedure(real(RKC)) :: getFunc
17492 type(ninf_type) , intent(in) :: lb
17493 type(pinf_type) , intent(in) :: ub
17494 real(RKC) , intent(in) :: abstol
17495 real(RKC) , intent(in) :: reltol
17496 type(GK15_type) , intent(in) :: qrule
17497 type(wcauchy_type) , intent(in) :: help
17498 real(RKC) , intent(out) :: integral, abserr
17499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17500 integer(IK) , intent(out) , contiguous :: sindex(:)
17501 integer(IK) , intent(out) :: neval
17502 integer(IK) , intent(out) :: nint
17503 integer(IK) :: err
17504 end function
17505#endif
17506
17507#if RK3_ENABLED
17508 module function QAWC_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17510 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK3
17511#endif
17512 use pm_kind, only: RKC => RK3
17513 procedure(real(RKC)) :: getFunc
17514 type(ninf_type) , intent(in) :: lb
17515 type(pinf_type) , intent(in) :: ub
17516 real(RKC) , intent(in) :: abstol
17517 real(RKC) , intent(in) :: reltol
17518 type(GK15_type) , intent(in) :: qrule
17519 type(wcauchy_type) , intent(in) :: help
17520 real(RKC) , intent(out) :: integral, abserr
17521 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17522 integer(IK) , intent(out) , contiguous :: sindex(:)
17523 integer(IK) , intent(out) :: neval
17524 integer(IK) , intent(out) :: nint
17525 integer(IK) :: err
17526 end function
17527#endif
17528
17529#if RK2_ENABLED
17530 module function QAWC_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17532 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK2
17533#endif
17534 use pm_kind, only: RKC => RK2
17535 procedure(real(RKC)) :: getFunc
17536 type(ninf_type) , intent(in) :: lb
17537 type(pinf_type) , intent(in) :: ub
17538 real(RKC) , intent(in) :: abstol
17539 real(RKC) , intent(in) :: reltol
17540 type(GK15_type) , intent(in) :: qrule
17541 type(wcauchy_type) , intent(in) :: help
17542 real(RKC) , intent(out) :: integral, abserr
17543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17544 integer(IK) , intent(out) , contiguous :: sindex(:)
17545 integer(IK) , intent(out) :: neval
17546 integer(IK) , intent(out) :: nint
17547 integer(IK) :: err
17548 end function
17549#endif
17550
17551#if RK1_ENABLED
17552 module function QAWC_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17554 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK1
17555#endif
17556 use pm_kind, only: RKC => RK1
17557 procedure(real(RKC)) :: getFunc
17558 type(ninf_type) , intent(in) :: lb
17559 type(pinf_type) , intent(in) :: ub
17560 real(RKC) , intent(in) :: abstol
17561 real(RKC) , intent(in) :: reltol
17562 type(GK15_type) , intent(in) :: qrule
17563 type(wcauchy_type) , intent(in) :: help
17564 real(RKC) , intent(out) :: integral, abserr
17565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17566 integer(IK) , intent(out) , contiguous :: sindex(:)
17567 integer(IK) , intent(out) :: neval
17568 integer(IK) , intent(out) :: nint
17569 integer(IK) :: err
17570 end function
17571#endif
17572
17573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17574
17575#if RK5_ENABLED
17576 module function QAWC_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17578 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK5
17579#endif
17580 use pm_kind, only: RKC => RK5
17581 procedure(real(RKC)) :: getFunc
17582 type(ninf_type) , intent(in) :: lb
17583 type(pinf_type) , intent(in) :: ub
17584 real(RKC) , intent(in) :: abstol
17585 real(RKC) , intent(in) :: reltol
17586 type(GK21_type) , intent(in) :: qrule
17587 type(wcauchy_type) , intent(in) :: help
17588 real(RKC) , intent(out) :: integral, abserr
17589 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17590 integer(IK) , intent(out) , contiguous :: sindex(:)
17591 integer(IK) , intent(out) :: neval
17592 integer(IK) , intent(out) :: nint
17593 integer(IK) :: err
17594 end function
17595#endif
17596
17597#if RK4_ENABLED
17598 module function QAWC_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17600 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK4
17601#endif
17602 use pm_kind, only: RKC => RK4
17603 procedure(real(RKC)) :: getFunc
17604 type(ninf_type) , intent(in) :: lb
17605 type(pinf_type) , intent(in) :: ub
17606 real(RKC) , intent(in) :: abstol
17607 real(RKC) , intent(in) :: reltol
17608 type(GK21_type) , intent(in) :: qrule
17609 type(wcauchy_type) , intent(in) :: help
17610 real(RKC) , intent(out) :: integral, abserr
17611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17612 integer(IK) , intent(out) , contiguous :: sindex(:)
17613 integer(IK) , intent(out) :: neval
17614 integer(IK) , intent(out) :: nint
17615 integer(IK) :: err
17616 end function
17617#endif
17618
17619#if RK3_ENABLED
17620 module function QAWC_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17622 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK3
17623#endif
17624 use pm_kind, only: RKC => RK3
17625 procedure(real(RKC)) :: getFunc
17626 type(ninf_type) , intent(in) :: lb
17627 type(pinf_type) , intent(in) :: ub
17628 real(RKC) , intent(in) :: abstol
17629 real(RKC) , intent(in) :: reltol
17630 type(GK21_type) , intent(in) :: qrule
17631 type(wcauchy_type) , intent(in) :: help
17632 real(RKC) , intent(out) :: integral, abserr
17633 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17634 integer(IK) , intent(out) , contiguous :: sindex(:)
17635 integer(IK) , intent(out) :: neval
17636 integer(IK) , intent(out) :: nint
17637 integer(IK) :: err
17638 end function
17639#endif
17640
17641#if RK2_ENABLED
17642 module function QAWC_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17644 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK2
17645#endif
17646 use pm_kind, only: RKC => RK2
17647 procedure(real(RKC)) :: getFunc
17648 type(ninf_type) , intent(in) :: lb
17649 type(pinf_type) , intent(in) :: ub
17650 real(RKC) , intent(in) :: abstol
17651 real(RKC) , intent(in) :: reltol
17652 type(GK21_type) , intent(in) :: qrule
17653 type(wcauchy_type) , intent(in) :: help
17654 real(RKC) , intent(out) :: integral, abserr
17655 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17656 integer(IK) , intent(out) , contiguous :: sindex(:)
17657 integer(IK) , intent(out) :: neval
17658 integer(IK) , intent(out) :: nint
17659 integer(IK) :: err
17660 end function
17661#endif
17662
17663#if RK1_ENABLED
17664 module function QAWC_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17666 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK1
17667#endif
17668 use pm_kind, only: RKC => RK1
17669 procedure(real(RKC)) :: getFunc
17670 type(ninf_type) , intent(in) :: lb
17671 type(pinf_type) , intent(in) :: ub
17672 real(RKC) , intent(in) :: abstol
17673 real(RKC) , intent(in) :: reltol
17674 type(GK21_type) , intent(in) :: qrule
17675 type(wcauchy_type) , intent(in) :: help
17676 real(RKC) , intent(out) :: integral, abserr
17677 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17678 integer(IK) , intent(out) , contiguous :: sindex(:)
17679 integer(IK) , intent(out) :: neval
17680 integer(IK) , intent(out) :: nint
17681 integer(IK) :: err
17682 end function
17683#endif
17684
17685 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17686
17687#if RK5_ENABLED
17688 module function QAWC_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17690 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK5
17691#endif
17692 use pm_kind, only: RKC => RK5
17693 procedure(real(RKC)) :: getFunc
17694 type(ninf_type) , intent(in) :: lb
17695 type(pinf_type) , intent(in) :: ub
17696 real(RKC) , intent(in) :: abstol
17697 real(RKC) , intent(in) :: reltol
17698 type(GK31_type) , intent(in) :: qrule
17699 type(wcauchy_type) , intent(in) :: help
17700 real(RKC) , intent(out) :: integral, abserr
17701 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17702 integer(IK) , intent(out) , contiguous :: sindex(:)
17703 integer(IK) , intent(out) :: neval
17704 integer(IK) , intent(out) :: nint
17705 integer(IK) :: err
17706 end function
17707#endif
17708
17709#if RK4_ENABLED
17710 module function QAWC_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17712 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK4
17713#endif
17714 use pm_kind, only: RKC => RK4
17715 procedure(real(RKC)) :: getFunc
17716 type(ninf_type) , intent(in) :: lb
17717 type(pinf_type) , intent(in) :: ub
17718 real(RKC) , intent(in) :: abstol
17719 real(RKC) , intent(in) :: reltol
17720 type(GK31_type) , intent(in) :: qrule
17721 type(wcauchy_type) , intent(in) :: help
17722 real(RKC) , intent(out) :: integral, abserr
17723 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17724 integer(IK) , intent(out) , contiguous :: sindex(:)
17725 integer(IK) , intent(out) :: neval
17726 integer(IK) , intent(out) :: nint
17727 integer(IK) :: err
17728 end function
17729#endif
17730
17731#if RK3_ENABLED
17732 module function QAWC_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17734 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK3
17735#endif
17736 use pm_kind, only: RKC => RK3
17737 procedure(real(RKC)) :: getFunc
17738 type(ninf_type) , intent(in) :: lb
17739 type(pinf_type) , intent(in) :: ub
17740 real(RKC) , intent(in) :: abstol
17741 real(RKC) , intent(in) :: reltol
17742 type(GK31_type) , intent(in) :: qrule
17743 type(wcauchy_type) , intent(in) :: help
17744 real(RKC) , intent(out) :: integral, abserr
17745 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17746 integer(IK) , intent(out) , contiguous :: sindex(:)
17747 integer(IK) , intent(out) :: neval
17748 integer(IK) , intent(out) :: nint
17749 integer(IK) :: err
17750 end function
17751#endif
17752
17753#if RK2_ENABLED
17754 module function QAWC_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17756 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK2
17757#endif
17758 use pm_kind, only: RKC => RK2
17759 procedure(real(RKC)) :: getFunc
17760 type(ninf_type) , intent(in) :: lb
17761 type(pinf_type) , intent(in) :: ub
17762 real(RKC) , intent(in) :: abstol
17763 real(RKC) , intent(in) :: reltol
17764 type(GK31_type) , intent(in) :: qrule
17765 type(wcauchy_type) , intent(in) :: help
17766 real(RKC) , intent(out) :: integral, abserr
17767 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17768 integer(IK) , intent(out) , contiguous :: sindex(:)
17769 integer(IK) , intent(out) :: neval
17770 integer(IK) , intent(out) :: nint
17771 integer(IK) :: err
17772 end function
17773#endif
17774
17775#if RK1_ENABLED
17776 module function QAWC_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17778 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK1
17779#endif
17780 use pm_kind, only: RKC => RK1
17781 procedure(real(RKC)) :: getFunc
17782 type(ninf_type) , intent(in) :: lb
17783 type(pinf_type) , intent(in) :: ub
17784 real(RKC) , intent(in) :: abstol
17785 real(RKC) , intent(in) :: reltol
17786 type(GK31_type) , intent(in) :: qrule
17787 type(wcauchy_type) , intent(in) :: help
17788 real(RKC) , intent(out) :: integral, abserr
17789 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17790 integer(IK) , intent(out) , contiguous :: sindex(:)
17791 integer(IK) , intent(out) :: neval
17792 integer(IK) , intent(out) :: nint
17793 integer(IK) :: err
17794 end function
17795#endif
17796
17797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17798
17799#if RK5_ENABLED
17800 module function QAWC_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17802 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK5
17803#endif
17804 use pm_kind, only: RKC => RK5
17805 procedure(real(RKC)) :: getFunc
17806 type(ninf_type) , intent(in) :: lb
17807 type(pinf_type) , intent(in) :: ub
17808 real(RKC) , intent(in) :: abstol
17809 real(RKC) , intent(in) :: reltol
17810 type(GK41_type) , intent(in) :: qrule
17811 type(wcauchy_type) , intent(in) :: help
17812 real(RKC) , intent(out) :: integral, abserr
17813 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17814 integer(IK) , intent(out) , contiguous :: sindex(:)
17815 integer(IK) , intent(out) :: neval
17816 integer(IK) , intent(out) :: nint
17817 integer(IK) :: err
17818 end function
17819#endif
17820
17821#if RK4_ENABLED
17822 module function QAWC_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17824 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK4
17825#endif
17826 use pm_kind, only: RKC => RK4
17827 procedure(real(RKC)) :: getFunc
17828 type(ninf_type) , intent(in) :: lb
17829 type(pinf_type) , intent(in) :: ub
17830 real(RKC) , intent(in) :: abstol
17831 real(RKC) , intent(in) :: reltol
17832 type(GK41_type) , intent(in) :: qrule
17833 type(wcauchy_type) , intent(in) :: help
17834 real(RKC) , intent(out) :: integral, abserr
17835 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17836 integer(IK) , intent(out) , contiguous :: sindex(:)
17837 integer(IK) , intent(out) :: neval
17838 integer(IK) , intent(out) :: nint
17839 integer(IK) :: err
17840 end function
17841#endif
17842
17843#if RK3_ENABLED
17844 module function QAWC_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17846 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK3
17847#endif
17848 use pm_kind, only: RKC => RK3
17849 procedure(real(RKC)) :: getFunc
17850 type(ninf_type) , intent(in) :: lb
17851 type(pinf_type) , intent(in) :: ub
17852 real(RKC) , intent(in) :: abstol
17853 real(RKC) , intent(in) :: reltol
17854 type(GK41_type) , intent(in) :: qrule
17855 type(wcauchy_type) , intent(in) :: help
17856 real(RKC) , intent(out) :: integral, abserr
17857 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17858 integer(IK) , intent(out) , contiguous :: sindex(:)
17859 integer(IK) , intent(out) :: neval
17860 integer(IK) , intent(out) :: nint
17861 integer(IK) :: err
17862 end function
17863#endif
17864
17865#if RK2_ENABLED
17866 module function QAWC_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17868 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK2
17869#endif
17870 use pm_kind, only: RKC => RK2
17871 procedure(real(RKC)) :: getFunc
17872 type(ninf_type) , intent(in) :: lb
17873 type(pinf_type) , intent(in) :: ub
17874 real(RKC) , intent(in) :: abstol
17875 real(RKC) , intent(in) :: reltol
17876 type(GK41_type) , intent(in) :: qrule
17877 type(wcauchy_type) , intent(in) :: help
17878 real(RKC) , intent(out) :: integral, abserr
17879 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17880 integer(IK) , intent(out) , contiguous :: sindex(:)
17881 integer(IK) , intent(out) :: neval
17882 integer(IK) , intent(out) :: nint
17883 integer(IK) :: err
17884 end function
17885#endif
17886
17887#if RK1_ENABLED
17888 module function QAWC_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17890 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK1
17891#endif
17892 use pm_kind, only: RKC => RK1
17893 procedure(real(RKC)) :: getFunc
17894 type(ninf_type) , intent(in) :: lb
17895 type(pinf_type) , intent(in) :: ub
17896 real(RKC) , intent(in) :: abstol
17897 real(RKC) , intent(in) :: reltol
17898 type(GK41_type) , intent(in) :: qrule
17899 type(wcauchy_type) , intent(in) :: help
17900 real(RKC) , intent(out) :: integral, abserr
17901 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17902 integer(IK) , intent(out) , contiguous :: sindex(:)
17903 integer(IK) , intent(out) :: neval
17904 integer(IK) , intent(out) :: nint
17905 integer(IK) :: err
17906 end function
17907#endif
17908
17909 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17910
17911#if RK5_ENABLED
17912 module function QAWC_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17914 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK5
17915#endif
17916 use pm_kind, only: RKC => RK5
17917 procedure(real(RKC)) :: getFunc
17918 type(ninf_type) , intent(in) :: lb
17919 type(pinf_type) , intent(in) :: ub
17920 real(RKC) , intent(in) :: abstol
17921 real(RKC) , intent(in) :: reltol
17922 type(GK51_type) , intent(in) :: qrule
17923 type(wcauchy_type) , intent(in) :: help
17924 real(RKC) , intent(out) :: integral, abserr
17925 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17926 integer(IK) , intent(out) , contiguous :: sindex(:)
17927 integer(IK) , intent(out) :: neval
17928 integer(IK) , intent(out) :: nint
17929 integer(IK) :: err
17930 end function
17931#endif
17932
17933#if RK4_ENABLED
17934 module function QAWC_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17936 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK4
17937#endif
17938 use pm_kind, only: RKC => RK4
17939 procedure(real(RKC)) :: getFunc
17940 type(ninf_type) , intent(in) :: lb
17941 type(pinf_type) , intent(in) :: ub
17942 real(RKC) , intent(in) :: abstol
17943 real(RKC) , intent(in) :: reltol
17944 type(GK51_type) , intent(in) :: qrule
17945 type(wcauchy_type) , intent(in) :: help
17946 real(RKC) , intent(out) :: integral, abserr
17947 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17948 integer(IK) , intent(out) , contiguous :: sindex(:)
17949 integer(IK) , intent(out) :: neval
17950 integer(IK) , intent(out) :: nint
17951 integer(IK) :: err
17952 end function
17953#endif
17954
17955#if RK3_ENABLED
17956 module function QAWC_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17958 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK3
17959#endif
17960 use pm_kind, only: RKC => RK3
17961 procedure(real(RKC)) :: getFunc
17962 type(ninf_type) , intent(in) :: lb
17963 type(pinf_type) , intent(in) :: ub
17964 real(RKC) , intent(in) :: abstol
17965 real(RKC) , intent(in) :: reltol
17966 type(GK51_type) , intent(in) :: qrule
17967 type(wcauchy_type) , intent(in) :: help
17968 real(RKC) , intent(out) :: integral, abserr
17969 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17970 integer(IK) , intent(out) , contiguous :: sindex(:)
17971 integer(IK) , intent(out) :: neval
17972 integer(IK) , intent(out) :: nint
17973 integer(IK) :: err
17974 end function
17975#endif
17976
17977#if RK2_ENABLED
17978 module function QAWC_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17980 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK2
17981#endif
17982 use pm_kind, only: RKC => RK2
17983 procedure(real(RKC)) :: getFunc
17984 type(ninf_type) , intent(in) :: lb
17985 type(pinf_type) , intent(in) :: ub
17986 real(RKC) , intent(in) :: abstol
17987 real(RKC) , intent(in) :: reltol
17988 type(GK51_type) , intent(in) :: qrule
17989 type(wcauchy_type) , intent(in) :: help
17990 real(RKC) , intent(out) :: integral, abserr
17991 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17992 integer(IK) , intent(out) , contiguous :: sindex(:)
17993 integer(IK) , intent(out) :: neval
17994 integer(IK) , intent(out) :: nint
17995 integer(IK) :: err
17996 end function
17997#endif
17998
17999#if RK1_ENABLED
18000 module function QAWC_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18002 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK1
18003#endif
18004 use pm_kind, only: RKC => RK1
18005 procedure(real(RKC)) :: getFunc
18006 type(ninf_type) , intent(in) :: lb
18007 type(pinf_type) , intent(in) :: ub
18008 real(RKC) , intent(in) :: abstol
18009 real(RKC) , intent(in) :: reltol
18010 type(GK51_type) , intent(in) :: qrule
18011 type(wcauchy_type) , intent(in) :: help
18012 real(RKC) , intent(out) :: integral, abserr
18013 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18014 integer(IK) , intent(out) , contiguous :: sindex(:)
18015 integer(IK) , intent(out) :: neval
18016 integer(IK) , intent(out) :: nint
18017 integer(IK) :: err
18018 end function
18019#endif
18020
18021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18022
18023#if RK5_ENABLED
18024 module function QAWC_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18026 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK5
18027#endif
18028 use pm_kind, only: RKC => RK5
18029 procedure(real(RKC)) :: getFunc
18030 type(ninf_type) , intent(in) :: lb
18031 type(pinf_type) , intent(in) :: ub
18032 real(RKC) , intent(in) :: abstol
18033 real(RKC) , intent(in) :: reltol
18034 type(GK61_type) , intent(in) :: qrule
18035 type(wcauchy_type) , intent(in) :: help
18036 real(RKC) , intent(out) :: integral, abserr
18037 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18038 integer(IK) , intent(out) , contiguous :: sindex(:)
18039 integer(IK) , intent(out) :: neval
18040 integer(IK) , intent(out) :: nint
18041 integer(IK) :: err
18042 end function
18043#endif
18044
18045#if RK4_ENABLED
18046 module function QAWC_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18048 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK4
18049#endif
18050 use pm_kind, only: RKC => RK4
18051 procedure(real(RKC)) :: getFunc
18052 type(ninf_type) , intent(in) :: lb
18053 type(pinf_type) , intent(in) :: ub
18054 real(RKC) , intent(in) :: abstol
18055 real(RKC) , intent(in) :: reltol
18056 type(GK61_type) , intent(in) :: qrule
18057 type(wcauchy_type) , intent(in) :: help
18058 real(RKC) , intent(out) :: integral, abserr
18059 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18060 integer(IK) , intent(out) , contiguous :: sindex(:)
18061 integer(IK) , intent(out) :: neval
18062 integer(IK) , intent(out) :: nint
18063 integer(IK) :: err
18064 end function
18065#endif
18066
18067#if RK3_ENABLED
18068 module function QAWC_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18070 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK3
18071#endif
18072 use pm_kind, only: RKC => RK3
18073 procedure(real(RKC)) :: getFunc
18074 type(ninf_type) , intent(in) :: lb
18075 type(pinf_type) , intent(in) :: ub
18076 real(RKC) , intent(in) :: abstol
18077 real(RKC) , intent(in) :: reltol
18078 type(GK61_type) , intent(in) :: qrule
18079 type(wcauchy_type) , intent(in) :: help
18080 real(RKC) , intent(out) :: integral, abserr
18081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18082 integer(IK) , intent(out) , contiguous :: sindex(:)
18083 integer(IK) , intent(out) :: neval
18084 integer(IK) , intent(out) :: nint
18085 integer(IK) :: err
18086 end function
18087#endif
18088
18089#if RK2_ENABLED
18090 module function QAWC_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18092 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK2
18093#endif
18094 use pm_kind, only: RKC => RK2
18095 procedure(real(RKC)) :: getFunc
18096 type(ninf_type) , intent(in) :: lb
18097 type(pinf_type) , intent(in) :: ub
18098 real(RKC) , intent(in) :: abstol
18099 real(RKC) , intent(in) :: reltol
18100 type(GK61_type) , intent(in) :: qrule
18101 type(wcauchy_type) , intent(in) :: help
18102 real(RKC) , intent(out) :: integral, abserr
18103 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18104 integer(IK) , intent(out) , contiguous :: sindex(:)
18105 integer(IK) , intent(out) :: neval
18106 integer(IK) , intent(out) :: nint
18107 integer(IK) :: err
18108 end function
18109#endif
18110
18111#if RK1_ENABLED
18112 module function QAWC_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18114 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK1
18115#endif
18116 use pm_kind, only: RKC => RK1
18117 procedure(real(RKC)) :: getFunc
18118 type(ninf_type) , intent(in) :: lb
18119 type(pinf_type) , intent(in) :: ub
18120 real(RKC) , intent(in) :: abstol
18121 real(RKC) , intent(in) :: reltol
18122 type(GK61_type) , intent(in) :: qrule
18123 type(wcauchy_type) , intent(in) :: help
18124 real(RKC) , intent(out) :: integral, abserr
18125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18126 integer(IK) , intent(out) , contiguous :: sindex(:)
18127 integer(IK) , intent(out) :: neval
18128 integer(IK) , intent(out) :: nint
18129 integer(IK) :: err
18130 end function
18131#endif
18132
18133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18134
18135#if RK5_ENABLED
18136 module function QAWC_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18138 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK5
18139#endif
18140 use pm_kind, only: RKC => RK5
18141 procedure(real(RKC)) :: getFunc
18142 type(ninf_type) , intent(in) :: lb
18143 type(pinf_type) , intent(in) :: ub
18144 real(RKC) , intent(in) :: abstol
18145 real(RKC) , intent(in) :: reltol
18146 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18147 type(wcauchy_type) , intent(in) :: help
18148 real(RKC) , intent(out) :: integral, abserr
18149 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18150 integer(IK) , intent(out) , contiguous :: sindex(:)
18151 integer(IK) , intent(out) :: neval
18152 integer(IK) , intent(out) :: nint
18153 integer(IK) :: err
18154 end function
18155#endif
18156
18157#if RK4_ENABLED
18158 module function QAWC_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18160 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK4
18161#endif
18162 use pm_kind, only: RKC => RK4
18163 procedure(real(RKC)) :: getFunc
18164 type(ninf_type) , intent(in) :: lb
18165 type(pinf_type) , intent(in) :: ub
18166 real(RKC) , intent(in) :: abstol
18167 real(RKC) , intent(in) :: reltol
18168 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18169 type(wcauchy_type) , intent(in) :: help
18170 real(RKC) , intent(out) :: integral, abserr
18171 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18172 integer(IK) , intent(out) , contiguous :: sindex(:)
18173 integer(IK) , intent(out) :: neval
18174 integer(IK) , intent(out) :: nint
18175 integer(IK) :: err
18176 end function
18177#endif
18178
18179#if RK3_ENABLED
18180 module function QAWC_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18182 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK3
18183#endif
18184 use pm_kind, only: RKC => RK3
18185 procedure(real(RKC)) :: getFunc
18186 type(ninf_type) , intent(in) :: lb
18187 type(pinf_type) , intent(in) :: ub
18188 real(RKC) , intent(in) :: abstol
18189 real(RKC) , intent(in) :: reltol
18190 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18191 type(wcauchy_type) , intent(in) :: help
18192 real(RKC) , intent(out) :: integral, abserr
18193 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18194 integer(IK) , intent(out) , contiguous :: sindex(:)
18195 integer(IK) , intent(out) :: neval
18196 integer(IK) , intent(out) :: nint
18197 integer(IK) :: err
18198 end function
18199#endif
18200
18201#if RK2_ENABLED
18202 module function QAWC_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18204 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK2
18205#endif
18206 use pm_kind, only: RKC => RK2
18207 procedure(real(RKC)) :: getFunc
18208 type(ninf_type) , intent(in) :: lb
18209 type(pinf_type) , intent(in) :: ub
18210 real(RKC) , intent(in) :: abstol
18211 real(RKC) , intent(in) :: reltol
18212 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18213 type(wcauchy_type) , intent(in) :: help
18214 real(RKC) , intent(out) :: integral, abserr
18215 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18216 integer(IK) , intent(out) , contiguous :: sindex(:)
18217 integer(IK) , intent(out) :: neval
18218 integer(IK) , intent(out) :: nint
18219 integer(IK) :: err
18220 end function
18221#endif
18222
18223#if RK1_ENABLED
18224 module function QAWC_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18226 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK1
18227#endif
18228 use pm_kind, only: RKC => RK1
18229 procedure(real(RKC)) :: getFunc
18230 type(ninf_type) , intent(in) :: lb
18231 type(pinf_type) , intent(in) :: ub
18232 real(RKC) , intent(in) :: abstol
18233 real(RKC) , intent(in) :: reltol
18234 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18235 type(wcauchy_type) , intent(in) :: help
18236 real(RKC) , intent(out) :: integral, abserr
18237 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18238 integer(IK) , intent(out) , contiguous :: sindex(:)
18239 integer(IK) , intent(out) :: neval
18240 integer(IK) , intent(out) :: nint
18241 integer(IK) :: err
18242 end function
18243#endif
18244
18245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18246
18247 end interface
18248
18249!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18250
18251end module pm_quadPack
pm_quadPack::getQuadErr
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Definition: pm_quadPack.F90:5641
pm_quadPack::getQuadGK
Compute the 1D integral of the input scalar integrand getFunc on the finite or infinite interval [a,...
Definition: pm_quadPack.F90:2272
pm_quadPack::isFailedQuad
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Definition: pm_quadPack.F90:4989
pm_quadPack::setChebExpan
Compute and return the series expansion of the input function values via the Chebyshev polynomials of...
Definition: pm_quadPack.F90:4838
pm_quadPack::setErrSorted
Sort the input local error estimates list (resulting from the interval subdivision process of the Ada...
Definition: pm_quadPack.F90:4712
pm_quadPack::setNodeWeightGK
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
Definition: pm_quadPack.F90:2036
pm_quadPack::setSeqLimEps
Return the limit of a given sequence of approximations via the Epsilon method of Wynn (1961).
Definition: pm_quadPack.F90:4599
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::RKB
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
Definition: pm_kind.F90:1371
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_mathConst
This module contains relevant mathematical constants.
Definition: pm_mathConst.F90:36
pm_mathConst::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_mathConst.F90:42
pm_mathConst::ninf
type(ninf_type), parameter ninf
The scalar constant object of type ninf_type that indicates the use of the negative infinity as an i...
Definition: pm_mathConst.F90:423
pm_mathConst::pinf
type(pinf_type), parameter pinf
The scalar constant object of type pinf_type that indicates the use of the positive infinity as an i...
Definition: pm_mathConst.F90:470
pm_quadPack
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
Definition: pm_quadPack.F90:141
pm_quadPack::weightG30
real(RKB), dimension(15), parameter weightG30
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1841
pm_quadPack::nodeG25
real(RKB), dimension(13), parameter nodeG25
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1552
pm_quadPack::MAXLEN_EPSTAB
integer(IK), parameter MAXLEN_EPSTAB
The scalar integer of default kind IK, containing the maximum size of the Table of Epsilon algorithm.
Definition: pm_quadPack.F90:4501
pm_quadPack::weightK41
real(RKB), dimension(21), parameter weightK41
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1431
pm_quadPack::weightK31
real(RKB), dimension(16), parameter weightK31
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1202
pm_quadPack::nodeK41
real(RKB), dimension(21), parameter nodeK41
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1386
pm_quadPack::nodeG15
real(RKB), dimension(8), parameter nodeG15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1098
pm_quadPack::nodeG30
real(RKB), dimension(15), parameter nodeG30
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1802
pm_quadPack::nodeK15
real(RKB), dimension(8), parameter nodeK15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:754
pm_quadPack::weightK21
real(RKB), dimension(11), parameter weightK21
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:987
pm_quadPack::nodeK61
real(RKB), dimension(31), parameter nodeK61
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1880
pm_quadPack::nodeK31
real(RKB), dimension(16), parameter nodeK31
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1162
pm_quadPack::nodeG7
real(RKB), dimension(4), parameter nodeG7
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:698
pm_quadPack::GK31
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1074
pm_quadPack::weightG10
real(RKB), dimension(5), parameter weightG10
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:923
pm_quadPack::weightG25
real(RKB), dimension(13), parameter weightG25
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1589
pm_quadPack::GK51
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1528
pm_quadPack::nodeK21
real(RKB), dimension(11), parameter nodeK21
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:952
pm_quadPack::weightK15
real(RKB), dimension(8), parameter weightK15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:786
pm_quadPack::weightG7
real(RKB), dimension(4), parameter weightG7
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:726
pm_quadPack::weps
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
Definition: pm_quadPack.F90:4551
pm_quadPack::weightK51
real(RKB), dimension(26), parameter weightK51
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1676
pm_quadPack::weightG20
real(RKB), dimension(10), parameter weightG20
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1352
pm_quadPack::nodeK51
real(RKB), dimension(26), parameter nodeK51
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1626
pm_quadPack::GK61
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1778
pm_quadPack::GK21
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:870
pm_quadPack::nodeG10
real(RKB), dimension(5), parameter nodeG10
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:894
pm_quadPack::weightK61
real(RKB), dimension(31), parameter weightK61
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1935
pm_quadPack::weightG15
real(RKB), dimension(8), parameter weightG15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1130
pm_quadPack::GK15
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
Definition: pm_quadPack.F90:674
pm_quadPack::nodeG20
real(RKB), dimension(10), parameter nodeG20
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1318
pm_quadPack::GK41
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1294
pm_mathConst::ninf_type
This is the indicator type for generating instances of objects that indicate the use of the negative ...
Definition: pm_mathConst.F90:406
pm_mathConst::pinf_type
This is the indicator type for generating instances of objects that indicate the use of the positive ...
Definition: pm_mathConst.F90:453
pm_quadPack::GK15_type
This is the indicator type for generating instances of objects that indicate the use of 7-point Gauss...
Definition: pm_quadPack.F90:645
pm_quadPack::GK21_type
This is the indicator type for generating instances of objects that indicate the use of 10-point Gaus...
Definition: pm_quadPack.F90:840
pm_quadPack::GK31_type
This is the indicator type for generating instances of objects that indicate the use of 15-point Gaus...
Definition: pm_quadPack.F90:1044
pm_quadPack::GK41_type
This is the indicator type for generating instances of objects that indicate the use of 20-point Gaus...
Definition: pm_quadPack.F90:1264
pm_quadPack::GK51_type
This is the indicator type for generating instances of objects that indicate the use of 25-point Gaus...
Definition: pm_quadPack.F90:1498
pm_quadPack::GK61_type
This is the indicator type for generating instances of objects that indicate the use of 30-point Gaus...
Definition: pm_quadPack.F90:1748
pm_quadPack::wcauchy_type
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
Definition: pm_quadPack.F90:193
pm_quadPack::wcos_type
This is the derived type for constructing objects that signify the computation of the integral an arb...
Definition: pm_quadPack.F90:497
pm_quadPack::weps_type
This is the indicator type for generating instances of objects that indicate the use of Epsilon extra...
Definition: pm_quadPack.F90:4530
pm_quadPack::wsin_type
This is the derived type for constructing objects that signify the computation of the integral an arb...
Definition: pm_quadPack.F90:345